Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
fillComboBox1()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox1.SelectedIndexChanged
fillComboBox2()
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox2.SelectedIndexChanged
fillComboBox3()
End Sub
Private Sub fillComboBox1()
Dim da As New OleDbDataAdapter(" SELECT DISTINCT [الشعبة] FROM [الجدول] ", conn)
Dim dt As New DataTable
da.Fill(dt)
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "الشعبة"
End Sub
Private Sub fillComboBox2()
Dim da As New OleDbDataAdapter(" SELECT DISTINCT [الصف] FROM [الجدول] WHERE ([الشعبة]=@p1) ", conn)
da.SelectCommand.Parameters.AddWithValue("@p1", Me.ComboBox1.Text)
Dim dt As New DataTable
da.Fill(dt)
ComboBox2.DataSource = dt
ComboBox2.DisplayMember = "الصف"
End Sub
Private Sub fillComboBox3()
Dim da As New OleDbDataAdapter(" SELECT [الاسم] FROM [الجدول] WHERE ([الشعبة]=@p1) AND ([الصف]=@p2) ", conn)
da.SelectCommand.Parameters.AddWithValue("@p1", Me.ComboBox1.Text)
da.SelectCommand.Parameters.AddWithValue("@p2", Me.ComboBox2.Text)
Dim dt As New DataTable
da.Fill(dt)
ComboBox3.DataSource = dt
ComboBox3.DisplayMember = "الاسم"
End Sub