+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مساعدة في فلتر Combobox (/showthread.php?tid=13731)
الصفحات:
1
2
RE: مساعدة في فلتر Combobox - مهموم - 06-11-15
السلام عليكم ورحمة الله
أختي منى
سوف أرشدك لطريقة بدون كتابة أي كود
أولا من القائمة 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.
RE: مساعدة في فلتر Combobox - HASAN6.0 - 06-11-15
الكود لكل الفورم
كود :
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%
RE: مساعدة في فلتر Combobox - محمد العبيدي - 06-11-15
تم تعديل في المرفق
RE: مساعدة في فلتر Combobox - mona626 - 06-11-15
الحمد لله اشتغل 100 %
بشكركم جدا
ادعولي انهي المشروع بنجاح
اختكم منى