Question

vb combobox click事件

各位高手好。菜鸟有一个问题请教大家：有一个combo,还有三个text,我想在combo里面选择一个数据的时候，能把数据库里面相对的A,B,C显示在text1,text2,text3里面。我要代码的？请多多指教，谢谢
数据库是：clgl.mdb,表有：ccdj(字段：ccrq,cphm,lx,gls,ygl,kfs,gy,je),lxb(字段：lx,gls,ygl,kfs,gy),然后我用VB设置了一个ccdj的界面（对应ccdj表的字段），lx是combobox组合框（数据来源是表lxb的lx字段）其它都是文本框，现在问题就是：但我选择组合框里面的一个数据时，如何编写代码才能把表lxb里面相对的字段数据显示在界面文本框内？？？谢谢谢谢

Answer 1

Private Sub DataCombo1_Click(Area As Integer)
If Area = 0 Then
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"
Adodc1.RecordSource = "select Nm from SNm "
Adodc1.Refresh
If Not Adodc1.Recordset.EOF = True Then
Set Me.DataCombo1.RowSource = Adodc1
Me.DataCombo1.ListField = Adodc1.Recordset.Fields("Nm").Name
End If
End If
If Area = 2 Then
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"
Adodc1.RecordSource = "select * from SNm where Nm='" & Trim(DataCombo1.Text) & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
For j = 0 To 4
Text1(j).Text = Adodc1.Recordset.Fields(j + 1)
Next j
Combo1.Text = Adodc1.Recordset.Fields(6)
End If
你试试看吧，代码和你需要的类似改改就可以用了

Answer 2

text1.text=combo1.text
text2.text=combo1.text
text3.text=combo1.text
不知道是不是这个意思
没有vb 提供思路。仅供参考。