[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 كتب :    الف شكر..جاري التجربة

---

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