ارتباط بین فیلد و کمبو

[maryam_vb]

با سلام


Dim conn AsNew OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\calendar.mdb")
Dim adap AsNew OleDb.OleDbDataAdapter("select title,matn,saat,dagh from messages2 where tarikh='" & s & "'", conn)
Dim ds AsNew DataSet
conn.Open()
adap.Fill(ds, "messages2")

Combohour.DataBindings.Add(New Binding("?", ds, "messages2.saat")


جای علامت سوال چه مقداری باید قرار بگیره؟
چه جوری باید بین کمبو و فیلد ار تباط برقرار کنم تا مقدار کمبو معادل مقدار فیلد قرار بگیره؟

[saman_itc]

ol_cn = New OleDbConnection(er)
ol_cn.Open()

********************
ds = New DataSet
ol_da.Fill(ds, "Goroh")
dr = ol_cm.ExecuteReader
If dr.HasRows Then
While dr.Read
Combo1.Items.Add(dr("group"))
End While
End If

[maryam_vb]

سلام
نمیخوام داده جدیدی رو add کنه.اون مقداری رو که از جدول select کرده معادلش توی کمبو هست ، اونو نشون بده.

[saman_itc]

میشه بیشتر توضیح بدی؟
شما میخوای مقداری که نو کومبو نشون داده میشه تغییر بدی مثل تو یه تکست وقتی عدد 1 میدی مقدار کومبو بشه تهران؟

[maryam_vb]

البته من روشمو تغییر دادم دیگه از کمبو استفاده نمیکنم،ولی میخوام بدونم چه جوری این کار عملی میشه.
ببینید من یه کمبو دارم که مقادیر ساعت از 00 تا 23 مقداردهی شده و یه فیلدی دارم با نام ساعت که در فرم دیگری که برای ثبت پیامه با یکی از همون مقادیر ساعت پر شده .حالا توی این فرم که برا ی ویرایش هست باید کمبو این فرم معادل فیلد ساعت select شده رو نشون بده ( تکرار میکنم کمبو قبلا مقدار دهی شده )