01.Private Sub cbYear_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbYear.SelectedIndexChanged
02.
03.
04. cbYear.ResetText()
05. cbMS.ResetText()
06.
07. Dim TD3 As New ConnectDb
08. TD3.OpenConn()
09. Dim dty As New DataTable
10. dty = TD3.ReadData("select * from Model where Data = '" & cbData.SelectedValue.ToString & "' and Series = '" & cbSeries.SelectedValue.ToString & "' and Year = '" & cbYear.SelectedValue.ToString & "'")
11. TD3.CloseConn()
12. cbMS.DataSource = dty
13.
14.
15. cbMS.DisplayMember = "Model"
16. cbMS.ValueMember = "ModelSerial"
17.
18.
19. End Sub
