تقييم الموضوع :
  • 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
نعم.. نجح الكود..شكرا لاهتمامكم.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اعمل مشغل سيرفرلايت بالوكال هوست حاتمي 0 47 13-03-19, 06:29 PM
آخر رد: حاتمي
  كيف اعمل خاصية حفظ للبرنامج حاتمي 23 745 10-03-19, 07:18 PM
آخر رد: حاتمي
  [سؤال] شباب ازاي اعمل شريط في فجوال 2010 A12 1 149 07-02-19, 11:23 PM
آخر رد: princelovelorn
  كيف اعمل زر مثل هذا anes 11 583 26-09-18, 01:44 AM
آخر رد: anes
  [VB.NET] كيفية جعل قيمة افتراضية من داخل كومبوبوكس موجود في داتا جريد فيو محمد صلاح ابراهيم 4 349 16-07-18, 02:31 PM
آخر رد: elgokr
  [VB.NET] كيف اعمل حفظ تلقائي لمحتوي الtextbox ... e-coder 0 281 20-04-18, 08:40 PM
آخر رد: e-coder
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 3 585 27-03-18, 03:12 PM
آخر رد: ssayed111
  [VB.NET] كيف اعمل بالون بجاور الساعه كما في الماسنجر e-coder 4 383 14-03-18, 01:11 AM
آخر رد: e-coder
  [VB.NET] عاوز اعمل برنامج يفعل البرنامج بتاعى MOSTAFA.KAMEL 7 414 11-02-18, 09:10 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] كيف اعمل سحب عشوائي مابين عدة اسماء Nete0 19 930 31-01-18, 03:17 PM
آخر رد: Basil Abdallah

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


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