[nassery99]

الاخوة في المنتدى ..السلام عليكم

لدي ثلاثة كمبو بوكس الاول للصف,و الثاني الشعبة,و الثالث الاسم.
ولدي جدول1 يحتوي على أسماء الطلاب والصف والشعبه او القروب.
اريد عند اختيار الصف والشعبة يظهر في الكومبو الثالث كمبو الاسم الطلاب الذين ينتمون مثلا للصف الاول أ

ارجوا منكم التعاون في ذلك.

[a.ahmed]

PHP كود :

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 


[nassery99]

(09-10-17, 08:34 AM)a.ahmed كتب :

PHP كود :

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 


---

(09-10-17, 06:12 PM)nassery99 كتب :

(09-10-17, 08:34 AM)a.ahmed كتب :    الف شكر..جاري التجربة

---

شكرا لاهتمامكم ..جاااري التجربه

[nassery99]

نعم.. نجح الكود..شكرا لاهتمامكم.