oracle_2007
یک شنبه 12 خرداد 1387, 00:52 صبح
سلام دوستان
من ميخوام كمبو باكس رو به طريقه اي پر كنم كه وقتي يكي از آيتم هاي اون رو انتخاب مي كنم مقدار دومي كه مد نظرم هست در تكست باكس گذاشته بشه .
مثلا وقتي كمبو رو با نام افراد پر ميكنم مي خوام فاميلي اون شخصي كه از كمبو سلكت كردم در يه تكست باكس نشون داده بشه . با كد زير فقط فاميلي آخرين فرد رو دارم .
كدي مربوطه اينه :
Dim con As New SqlClient.SqlConnection(strCon)
Dim strsql As String = "select name,Family from tbl_person ORDER BY name ASC"
Dim cmd As New SqlClient.SqlCommand(strsql, con)
con.Open()
Dim rdr As SqlClient.SqlDataReader = cmd.ExecuteReader
While rdr.Read()
Cmb_person.Tag = rdr("Family")
Cmb_person.Items.Add(rdr("name"))
End While
con.Close()
cmd.Dispose()
con.Dispose()
و در رويداد Cmb_person_SelectedIndexChanged هم نو شتم :
Me.txt_family.Text = Cmb_person.Tag.ToString
ممنون ميشم كمكم كنين .
من ميخوام كمبو باكس رو به طريقه اي پر كنم كه وقتي يكي از آيتم هاي اون رو انتخاب مي كنم مقدار دومي كه مد نظرم هست در تكست باكس گذاشته بشه .
مثلا وقتي كمبو رو با نام افراد پر ميكنم مي خوام فاميلي اون شخصي كه از كمبو سلكت كردم در يه تكست باكس نشون داده بشه . با كد زير فقط فاميلي آخرين فرد رو دارم .
كدي مربوطه اينه :
Dim con As New SqlClient.SqlConnection(strCon)
Dim strsql As String = "select name,Family from tbl_person ORDER BY name ASC"
Dim cmd As New SqlClient.SqlCommand(strsql, con)
con.Open()
Dim rdr As SqlClient.SqlDataReader = cmd.ExecuteReader
While rdr.Read()
Cmb_person.Tag = rdr("Family")
Cmb_person.Items.Add(rdr("name"))
End While
con.Close()
cmd.Dispose()
con.Dispose()
و در رويداد Cmb_person_SelectedIndexChanged هم نو شتم :
Me.txt_family.Text = Cmb_person.Tag.ToString
ممنون ميشم كمكم كنين .