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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [VB.NET] كيف اعمل رسالة ترحيب تظهر من اسفل الساعة " من الاسفل الى الاعلى " اباذر 5 204 04-04-19, 07:12 PM
آخر رد: elgokr
Wink [سؤال] سؤال حول عرض البيانات في كومبوبوكس ahmadpal 2 132 23-03-19, 11:42 PM
آخر رد: ahmadpal
  كيف اعمل مشغل سيرفرلايت بالوكال هوست حاتمي 0 100 13-03-19, 06:29 PM
آخر رد: حاتمي
  كيف اعمل خاصية حفظ للبرنامج حاتمي 23 842 10-03-19, 07:18 PM
آخر رد: حاتمي
  [سؤال] شباب ازاي اعمل شريط في فجوال 2010 A12 1 193 07-02-19, 11:23 PM
آخر رد: princelovelorn
  كيف اعمل زر مثل هذا anes 11 686 26-09-18, 01:44 AM
آخر رد: anes
  [VB.NET] كيفية جعل قيمة افتراضية من داخل كومبوبوكس موجود في داتا جريد فيو محمد صلاح ابراهيم 4 383 16-07-18, 02:31 PM
آخر رد: elgokr
  [VB.NET] كيف اعمل حفظ تلقائي لمحتوي الtextbox ... e-coder 0 302 20-04-18, 08:40 PM
آخر رد: e-coder
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 3 656 27-03-18, 03:12 PM
آخر رد: ssayed111
  [VB.NET] كيف اعمل بالون بجاور الساعه كما في الماسنجر e-coder 4 412 14-03-18, 01:11 AM
آخر رد: e-coder

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


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