[مهموم]

السلام عليكم ورحمة الله

أختي منى

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

أولا من القائمة 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.

[HASAN6.0]

الكود لكل الفورم

كود :

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]

الحمد لله اشتغل 100 % 

بشكركم جدا 

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




اختكم منى