Question

vb中用combobox下拉选择数据库中货品名中的一项，怎么让选定的货品名对应的单价显示在text框中？

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\manager.mdb;Persist Security Info=False"
Rs.Open "select distinct 货品名 from 货品", cn, adOpenKeyset, adLockOptimistic

Rs.MoveFirst
Do While Not Rs.EOF
Combo3.AddItem Rs.Fields("货品名")
Rs.MoveNext
Loop
Rs.Close
cn.Close
End Sub
这是之前的代码

Answer 1

dim price as interger=combo1.seleteditem '把选中的值存入price..
再用sql语句="select 单价 from 货品 where 货品名='price'
然后再把值赋给text控件。。

大概是这样，太久没有用vb了，我给的代码不完整或者有错误，你自己修改。。

Answer 2

你应该先查找出货的价格，然后才能把这个价格的变量赋给text控件

Answer 3

Combo3_click()
text1.text=Combo3.text
end sub