تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] شرح ازاى اربط الا كمبو بوكس بى اخر
#1
عايز لو سمحتوا ازاى اربط combo box بى واحد اخر
مثل
اريد عرض مجموعات فى الاول 
وعند اختيار مجموعه على مثال 
مصر 
يظهر فى المجموعه التانىه اطراف المجموعه مثل
القاهرة . الاسكندرية  . دمياط . الخ وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
تفضل عن طريق Select Case

ضيف كومبوبوكس 2

واضغط على الكومبو بوكس 1 مرتين

وضع هاذا الكود
PHP كود :
On Error Resume Next
        ComboBox2
.Items.Clear()
 
       Select Case ComboBox1.SelectedIndex
            Case 0

                
'مصر
                ComboBox2.Items.Add("القاهره")
                ComboBox2.Items.Add("الاسكندرية")
                ComboBox2.Items.Add("دمياط")
            Case 1
                '
العراق
                ComboBox2
.Items.Add("النجف")
 
               ComboBox2.Items.Add("كربلاء")
 
               ComboBox2.Items.Add("بغداد")
 
           Case 2
                
'السعوديه
                ComboBox2.Items.Add("الاحساء")
                ComboBox2.Items.Add("الدمام")
                ComboBox2.Items.Add("الرياض")
        End Select 
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة:
#3
ملاحظة بسيطة
case0
مصر
case1
العراق
.
.
.
وهكذا
الرد }}}}
تم الشكر بواسطة:
#4
(04-02-16, 07:12 PM)احمداحمداحمد6 كتب : ملاحظة بسيطة
case0
مصر
case1
العراق
.
.
.
وهكذا

+
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم أخي العزيز ورحمة الله وبركاته

الأكواد :
PHP كود :
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load

        Dim Query 
As String "Select * From tblCountry"
 
       Dim da As New OleDbDataAdapter(Querycon)
 
       Dim dt As New DataTable
        da
.Fill(dt)

 
       Me.cmbCountry.Items.Clear()
 
       For Each r As DataRow In dt.Rows
            Me
.cmbCountry.Items.Add(r.Item("Country"))
 
       Next
    End Sub

    Private Sub cmbCountry_SelectedValueChanged
(sender As ObjectAs EventArgsHandles cmbCountry.SelectedValueChanged

        Dim Query 
As String "Select * From tblCity Where Country  = '" cmbCountry.Text "'"
 
       Dim da As New OleDbDataAdapter(Querycon)
 
       Dim dt As New DataTable
        da
.Fill(dt)

 
       Me.cmbCity.Items.Clear()
 
       For Each r As DataRow In dt.Rows
            Me
.cmbCity.Items.Add(r.Item("City"))
 
       Next
        Me
.cmbCity.DroppedDown True
       
    End Sub 

قاعدة البيانات :
الجدول الأول :
   

الجدول الثاني :
   

المشروع :
.rar   khodor1985 - RequerComboBox.rar (الحجم : 89.56 ك ب / التحميلات : 48)

أتمنى لك التوفيق

النتيجة :
   

   
الرد }}}}
#6
بارك الله فيك ورزقك الجنة من غير حساب انت ومن تحب
الرد }}}}
تم الشكر بواسطة:
#7
اذا كانت لديك قائمة ذات بعدين الاول يمثل الدول والثاني يمثل المدن
يمكنك فعل ذلك بسهولة

PHP كود :
Dim CitiesList(32128) As String

    
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ComboBox1.SelectedIndexChanged
        Dim sel 
As Integer ComboBox1.SelectedIndex
        ComboBox2
.Items.Clear()

        
ComboBox2.BeginUpdate()
        For 
0 To 128
            
If Not CitiesList(seli) = Nothing Then
                ComboBox2
.Items.Add(CitiesList(seli))
            
End If
        
Next
        ComboBox2
.EndUpdate()
    
End Sub 
الرد }}}}
تم الشكر بواسطة:
#8
شكرا لكم جميععنا يارب يطرح فيكم البراكة وشكرا جزيل
الرد }}}}
تم الشكر بواسطة:
#9
يوجد مشكلة الا وهي عند تعبئة البيانات وحفظها ومن استعلام مثلا برقم التسلسل بعد الاستعلام يفتح الكمبوبوكس رقم 2 تلاقي مما يجبرك على الاختيار مرة اخرى وهذه مشكلة

وهذي صورة طبعا بعد ما تم الاستعلام فتح الكبو رقم 2 كيف اتلافا هذي المشكلة

[URL="http://www.up-00.com/"][/URL]
الرد }}}}
تم الشكر بواسطة:
#10
لتلافي المشكلة ..
في في كود البحث الخاص بالكومبو الاول والثاني .. ضع هذا الكود في البداية
PHP كود :
If sender.Focused False Then Exit Sub 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كمبو بوكس داخل الداتا جريد فارس احمد السيد 2 23 أمس, 11:27 PM
آخر رد: yousef
  ازاى اصمم جدول فى قاعدة بيانات 2D noway 5 87 أمس, 04:27 AM
آخر رد: khodor1985
  [سؤال] كيف اربط الوورد مع الفيجوال بيسك انوار القصيم 7 1,300 17-02-17, 01:18 PM
آخر رد: محمد عمار
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 1 39 12-02-17, 06:19 PM
آخر رد: مساعدة
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 4 83 12-02-17, 06:17 PM
آخر رد: مساعدة
  السلام عليكم .... ارجوا المساعدة في الجمع التكست بوكس محمد بوقزاحة 8 137 08-02-17, 11:50 AM
آخر رد: محمد بوقزاحة
Tongue كيفية تنسيق فورمات التكست بوكس المتألق9 0 28 06-02-17, 05:03 PM
آخر رد: المتألق9
  حل مشكلة في التيكست بوكس عبدالرحمن المكاوي 8 123 06-02-17, 01:52 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] كيف اربط بين 3 كومبو بوكس لو سمحتم farhat 8 203 06-02-17, 02:00 AM
آخر رد: farhat
  [سؤال] اظهار حقلين في كومبو بوكس ابو يوسف النواوي 2 4 120 02-02-17, 07:51 PM
آخر رد: ابو يوسف النواوي 2

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


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