[Easy4ever]

أنظر الشرح بعد التعديل

لنفرض ان اسم الجدول هو T1 ويحتوي على :
اسم البلد TCountry
رقم البلد TNumCountry

واسم جدول آخر T2 ويحتوي على :
اسم المدينة باسم TCity
رقم المدينة TNumCity
رقم البلد TNumCountry

ولنفرض إيضا الكوبو1 حق البلد اسمه CobCountry والكوبو2 حق المدينة اسمه CobCity

نذهب للكود

أولا كود عرض البلد مثل ما كتب بالسابق

PHP كود :

Dim DS1 As New DataSet
Dim DA1 As New OleDb.OleDbDataAdapter("select TCountry from T1", con)
DA1.Fill(DS1, "T1")
CobCountry.DataSource = DS1.Tables("T1")
CobCountry.DisplayMember = "TCountry" 


ثانيا كود عرض المدن سوف نربطه بجدول البلد

PHP كود :

Dim DS2 As New DataSet
Dim DA2 As New OleDb.OleDbDataAdapter("select T2.TCity from T1,T2 where T1.TCountry=" & CobCountry.Text & " and T1.TNumCountry=T2.TNumCountry", con)

DA2.Fill(DS2, "T1")
CobCity.DataSource = DS2.Tables("T1")
CobCity.DisplayMember = "TCity" 


إللي ضفناه في الكود هو ان حدنا بدل جدول جدولين وصار كل ما تبي تنادي حقل في البدايه تحط اسم الجدول بعدين نقطه بعدين اسم الحقل
وضفنا جملة And في الشرط إي مع تحقيق شرط آخر وضفنا الشرط الأخر هو الأمر T1.TNumCountry=T2.TNumCountry
يعني أربط الجدولين رقم الحقل الموجود في الجدول الأول مع رقم الحقل الموجود بالجدول الثاني

بالتوفيق