绑定帐号到combox 后,可以在combox 的Click事件中写代码显示textbox
Private Sub Combo1_Click()
Dim rs As New ADODB.Recordset
rs.Open "select 表1.客户名称 from 表1 where 表1.客户账号='"& combox1.text &"'",conn
text1.text=rs!客户名称
End Sub
Private Sub Combo1_Click()
Dim rs As New ADODB.Recordset
rs.Open "select 表1.客户名称 from 表1 where 表1.客户账号='"& combox1.text &"'",conn
text1.text=rs!客户名称
End Sub
查寻 SQL 语句.
text1.text= rs("查出的值")