تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف اعمل كومبوبوكس قائم على 2 كمبوبوكس آخرين
#1
الاخوة في المنتدى ..السلام عليكم

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

ارجوا منكم التعاون في ذلك.
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
Private Sub Form1_Load(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
    fillComboBox1
()
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As ObjectByVal e As EventArgsHandles ComboBox1.SelectedIndexChanged
    fillComboBox2
()
End Sub

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As ObjectByVal e As EventArgsHandles 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 
الرد }}}
تم الشكر بواسطة: ابو روضة , Amir_Alzubidy , عاشق الرسول
#3
(09-10-17, 08:34 AM)a.ahmed كتب :
PHP كود :
Private Sub Form1_Load(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
    fillComboBox1
()
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As ObjectByVal e As EventArgsHandles ComboBox1.SelectedIndexChanged
    fillComboBox2
()
End Sub

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As ObjectByVal e As EventArgsHandles 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 كتب :    الف شكر..جاري التجربة

شكرا لاهتمامكم ..جاااري التجربه
الرد }}}
تم الشكر بواسطة:
#4
نعم.. نجح الكود..شكرا لاهتمامكم.
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس جيولوجي مبتدئ 2 202 22-02-24, 07:10 PM
آخر رد: جيولوجي مبتدئ
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer
  [سؤال] كيف استطيع ان اعمل مثل هذه التبويبات في الواجهة كما في المرفق ادناه aYHAMMMS 0 294 14-07-23, 10:21 AM
آخر رد: aYHAMMMS
  [سؤال] فلتره البيانات داخل كومبوبوكس حسن الجلب 7 1,260 27-09-22, 12:24 PM
آخر رد: رضوان الجماعي
  كومبوبوكس mohamedassim 1 439 23-09-22, 06:21 PM
آخر رد: اسامه الهرماوي
  البحث في كمبوبوكس بمعلومية مربع نص atefkhalf2004 7 991 01-08-22, 06:47 PM
آخر رد: alfaiz678
  مش قادر اعمل استيراد لقتعدة بيانات عندى حماده ممدوح البحيرى 2 764 01-08-22, 03:59 PM
آخر رد: aljzazy
  كومبوبوكس mohamedassim 1 624 31-07-22, 03:07 PM
آخر رد: جيولوجي مبتدئ
  [سؤال] كيف يمكنني ان اعمل شاشة دخول مستخدم hassan 17 10,061 22-05-22, 03:30 AM
آخر رد: أبو خالد الشكري
  مشكلة في تعبئة كومبوبوكس إعماداً على كومبوبوكس آخر جيولوجي مبتدئ 3 1,313 05-11-21, 02:14 AM
آخر رد: جيولوجي مبتدئ

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم