如何实现DataCombo与textbox的同步变化

来源：百度知道 编辑：UC知道 时间：2024/06/24 11:25:08
现有DataCombo1和text1控件
DataCombo1通过adodc连接到一个表中的某一字段
请问如何在改变DataCombo1的同时，使得text1显示DataCombo连接的表中同行不同列的其他字段？
如果还有text2、text3…… 对应表中不同的列
要如何同步改变

Private Sub Combo1_Click()
Rs.Open "select * from bbb where seqno=" & Val(Combo1.Text) & "", conn, adOpenKeyset, adLockPessimistic

Text1.Text = Rs!Weight '这个是text1对应其中一个字段
Text2.Text = Rs!Height '这个是text2对应其中一个字段
'……………………………………

Rs.Close: Set Rs = Nothing
End Sub

在comboClick里按照combo的当前值去库里取值