首先，这是界面

这是程序运行时的界面

选择Combo控件列表框中的钢材，记录仍指向第一条，而下面的详细内容也没有变，此问题，如何解决？
Combo1代码：

Private Sub cmbField_Click()
Dim i As String
cmbname.Clear
i = Adodc1.RecordSource = "select * form 库存表"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
cmbname.AddItem Adodc1.Recordset.Fields(cmbField.Text)
Adodc1.Recordset.MoveNext
Loop
cmbname.Text = cmbname.List(0)
End Sub

Combo2代码：

Private Sub cmbname_Click()
Dim condition
Dim s As String
condition = Trim(cmbField.Text)
If Adodc1.Recordset.Fields(condition).Type = 202 Then
s = Adodc1.RecordSource = "select * form 库存表 where " & condition & "='" & cmbname.Text & "'"
Else
s = Adodc1.RecordSource = "select * form 库存表 where" & condition & "=" & cmbname.Text
End If
Adodc1.Refresh
txtno.Text = Adodc1.Recordset.Fields("货物编号")
txtname.Text = Adodc1.Recordset.Fields("货物名称")
txtstocknumber.Text = Adodc1.Recordset.Fields("库存量")
txtunit.Text = Adodc1.Recordset.Fields("单位")
End Sub

如何修改？谢谢。

text1.Text = Adodc1.Recordset.Fields("货物编号")

抱歉，没明白您的意思。。
是将

txtno.Text = Adodc1.Recordset.Fields("货物编号")

改为

text1.Text = Adodc1.Recordset.Fields("货物编号") 

么？可是我设置货物编号的Caption属性是txtno啊。

已经好了。
  问题分析:
adodc1控件的属性recordsouce被设定成了"库存表"(你自己看看，属性栏里)，然后在单击事件里试想变成select * form 库存表 where " & condition & "='" & cmbname.Text & "'"按条件找记录。这样是错误的。后者不会起作用的，实际上还是adodc1.recordsource=库存表(集合了全部的记录),text1只能是显示第一条记录相应的字段，即'3'。

  修改：
可以再增加一个adodc2控件,adodc2控件按条件找记录，即adodc2.recordsouce=select * form 库存表 where " & condition & "='" & cmbname.Text & "'",那就可以找到相应的记录了。

[ 本帖最后由 vbvcr51 于 2013-12-27 23:10 编辑 ]

收到的鲜花

• VB丶小宇 于 2013-12-28 07:59 送鲜花  5朵   附言：好文章！

非常非常的感谢您！困扰了我许久的问题！