问题：有一个combo1控件和一张数据表，假设表中有两列 列 1 2 A 我 B 你 C 她当我，在combo1中选择A的时候，旁边的文本框(text)中的内容就会显示弟2列的中的“我”，选择B就出现“你”，选择C就出现“她”给出代码。谢谢
Private Sub combo1_click()
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" + app.path + "\temp.mdb"
conn.Open
If rs.State = adStateOpen Then rs.Close
rs.CursorLocation = adUseClient
rs.Open "select*from 表名 where 1='" & Trim(combo1.Text) & " '", cnn, adOpenStatic, adLockPessimistic
If Not rs.EOF Then
text1.text = rs.Fields("2")
Else
text1.text = ""
End If
rs.Close
set rs=nothing
end sub
如果你对有一个combo1控件和一张数据表，假设表中有两列 列 1 2 A 我 B 你 C 她当我，在combo1中选择A的时候，旁边的文本框(text)中的内容就会显示弟2列的中的“我”，选择B就出现“你”，选择C就出现“她”给出代码。谢谢这个问题有好的意见或
建议，请留言
|
您当前的位置：
百科371 → 电脑/网络 → VB → 电脑/网络内容
退出登录 
减小字体
增大字体