دیتا گرید

[mehrdad_andami]

سلام من یه فرم طراحی کردم که 2 دیتا گیرید داره. یکی به جدول city وصل و دیگری به جدول استانها.
می خوام هر بار که روی دیتا گرید شهرها کلیک می کنیم استانهای مربوط به اون شهر ظاهر شن.
بر فرض وقتی روی تهران کلیک می کنیم استاهاش مثل دماوندو شهریار و ... ظاهر شوند.
کد رو نوشتم اشکالی که دارم روی حلقه for هست با کلیکهای بعدی سایر استانهارو نشون نمی ده.
لطفا راهنماییم کنین
ممنون می شم.
Private Sub DataGrid1_Click()
Adocity.Recordset.MoveFirst
For i = 1 To Adocity.Recordset.RecordCount
If Adopro.Recordset.Fields!citycode = Adocity.Recordset.Fields!citycode Then
d = Adocity.Recordset.Fields!citycode
s = "select * from province where citycode=" + Str(d)
Adopro.CommandType = adCmdText
Adopro.RecordSource = s
Adopro.Refresh
End If
Adocity.Recordset.MoveNext
Next i
End Sub

ناهید

[m.4.r.m]

اینو تست کن

[alipoor2009]

اوه چقدر شلوغ نوشتی - شما باید واسه استان یه آیدی قرار بدی و ID شهر های هر استان رو یک شماره بدی
مثلا استان تهران ID=20 حالا ID تمام شهرهای تهران رو 20 می دی و به همین شکل ادامه می دی و کد رو تو رویداد RowColChange دیتاگرید قرار بده
T=Adodc1.Recordset.Fields("ID")
SQL = "Select * From Tabel1 Where ID Like'" & T & "'"
Adodc1.RecordSource = SQL
Adodc1.Refresh

[rahmanzade]

مرسی.ایراد کار اینجاس که هر بار برنامه run می شه میگه incorrect syntax near the select و در هنگام debug قسمت adodc2.refresh رنگی میشه...
نمی دونم؟احتمالا دستئر select رو یه جاییش اشتباه می نویسم.
از راهنمایی تون هم خیلی ممنونم.

[m.4.r.m]

شما دستور Select رو درست نمی نویسین اگه خواستین سورس برنامه رو بزارین براتون اصلاح کنم

[rahmanzade]

سلام .دیروز با برنامه کلنجار رفتم و نتیجه گرفتم
odgd hcj,k llk,kl