تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مساعدة في فلتر Combobox
#11
السلام عليكم ورحمة الله

أختي منى

سوف أرشدك لطريقة بدون كتابة أي كود

أولا من القائمة Project اختاري Add New Item ومن النافذة اختاري DataSet وليكن اسمه DataSet1، ستتنفتح لك صفحة تصميم DataSet1،
الآن اسحبي الجدولين Countries وCities من نافذة Server Explorer واسقطيها داخل صفحة تصميم DataSet1، سيظهر معهم أيضاَ الرابط.

اذهبي للفورم وضعي ComboBox1 للدولة وComboBox2 للمدينة وطريقة ربطهما بال DataSet1 كالتالي

من خصائص ComboBox1 الخاص بالدولة:
اذهبي للخاصية DataSource واختاري من الشجرة ال Countries.
اذهبي للخاصية DisplayMember واختاري من القائمة ال CountryName.
اذهبي للخاصية ValueMember واختاري من القائمة ال CountryID.

من خصائص ComboBox2 الخاص بالمدينة:
اذهبي للخاصية DataSource واختاري من الشجرة ال FK_Cities_Coutries وهو موجود تحت CountriesBindingSource.
اذهبي للخاصية DisplayMember واختاري من القائمة ال CityName.
اذهبي للخاصية ValueMember واختاري من القائمة ال CityID.
الرد }}}
تم الشكر بواسطة: mona626
#12
الكود لكل الفورم
كود :
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
   Dim con As New SqlConnection
   Dim comm As SqlCommand = New SqlCommand
   Dim reader As SqlDataReader
   Dim dt As New DataTable
   Dim ds As New DataSet
   Dim da As New SqlDataAdapter
   Private Sub dailyreportentryform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       con = New SqlConnection
       con.ConnectionString = "your string"
       con.Open()
       fillcombo1()
       fillcombo2()
       MsgBox("تم الاتصال بنجاح", MsgBoxStyle.Information)
   End Sub

   'لتعبئة الكمبوبوكس الأول
   Private Sub fillcombo1()
       ds = New DataSet
       da = New SqlDataAdapter(" select * from Countries", con)
       da.Fill(ds, "Countries")
       ComboBox1.DataSource = ds.Tables("Countries")
       ComboBox1.ValueMember = "CountryID"
       ComboBox1.DisplayMember = "CountryName"
   End Sub

   'لتعبئة الكمبوبوكس الثاني
   Private Sub fillcombo2()
       ds = New DataSet
       da = New SqlDataAdapter(" select * from Cities where CountryID='" & ComboBox1.SelectedValue.ToString & "'", con)
       da.Fill(ds, "Cities")
       ComboBox2.DataSource = ds.Tables("Cities")
       ComboBox2.ValueMember = "CityID"
       ComboBox2.DisplayMember = "CityName"
   End Sub
   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       If sender.focused = False Then Exit Sub
       fillcombo2()
   End Sub
End Class

شغال 100%
الرد }}}
تم الشكر بواسطة: mona626
#13
تم تعديل في المرفق


الملفات المرفقة
.rar   تسجيل المراقبات.rar (الحجم : 72.02 ك ب / التحميلات : 89)
الرد }}}
تم الشكر بواسطة: mona626
#14
الحمد لله اشتغل 100 % 

بشكركم جدا 

ادعولي انهي المشروع بنجاح 


Heart Heart Heart Heart Heart Heart Heart

اختكم منى
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  كيف اتعامل مع databindings و ال combobox سلام و محبه 2 52 24-03-24, 05:00 AM
آخر رد: سلام و محبه
  مساعدة jalaltech 1 95 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 79 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 220 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] استدعاء بيانات في TextBox بناء على combobox loay775 2 264 18-01-24, 05:07 PM
آخر رد: loay775

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


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