新手学DataCombo控件遇到的问题!

[prominent]

我在编写一个小小的产品系统.
我想实现的是,在输入一个新的产品的资料时,当选中供应商(DataCombo)时,下拉框中会显示供应商代码和供应商的名称(当然假设在供应商表中已经有N个供应商的信息了.)
希望大家给个提示呀,小弟在此谢过了.在网上查了N久了.还是没有找到个头绪..
我也知道它有一些属性,可是试了N遍,也不能实现.在线等.

[faysky2]

使用DataCombo1的例子：

'需要引用ADO
Dim oRS As New ADODB.Recordset
Dim oConn As New ADODB.Connection

Private Sub Form_Load()
oConn.CursorLocation = adUseClient
'连接字符串的路径自己改过来
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"

oRS.Open "select * from table1", oConn, adOpenDynamic, adLockOptimistic

Set DataCombo1.RowSource = oRS
DataCombo1.ListField = "某个列名"
DataCombo1.Text = oRS("某个列名")
End Sub

[prominent]

谢谢楼上的...我还有个小提问?
您的好像只会显示一个字段,如果我想显示多个字段呢?如:下拉框中显示产品名称和产品代码两个字段.

[faysky2]

你是想把 产品名称和产品代码 并排显示??
还是把产品代码追加在产品名称后面?

[prominent]

想把它们并排显示...麻烦大哥了...呵呵...

[faysky2]

改一下查询语句就行了:

并排显示:
oRS.Open "select 产品名称 & ' ' & 产品代码 as tmp from table1", oConn, adOpenDynamic, adLockOptimistic
Set DataCombo1.RowSource = oRS
DataCombo1.ListField = "tmp"

追加显示:
oRS.Open "select 产品名称 from table1 Union select 产品名称 from table1", oConn, adOpenDynamic, adLockOptimistic
Set DataCombo1.RowSource = oRS
DataCombo1.ListField = "tmp

[faysky2]

追加显示(上面的写错了):
oRS.Open "select 产品名称 from table1 Union select 产品名称 from table1", oConn, adOpenDynamic, adLockOptimistic
Set DataCombo1.RowSource = oRS
DataCombo1.ListField = "产品名称"

[prominent]

真是太谢谢了..回去好好研究下....

[prominent]

分数散给你了..谢了...