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

prominent 2006-02-10 09:06:34
我在编写一个小小的产品系统.
我想实现的是,在输入一个新的产品的资料时,当选中供应商(DataCombo)时,下拉框中会显示供应商代码和供应商的名称(当然假设在供应商表中已经有N个供应商的信息了.)
希望大家给个提示呀,小弟在此谢过了.在网上查了N久了.还是没有找到个头绪..
我也知道它有一些属性,可是试了N遍,也不能实现.在线等.
...全文
63 8 点赞 打赏 收藏 举报
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
prominent 2006-02-10
分数散给你了..谢了...
  • 打赏
  • 举报
回复
prominent 2006-02-10
真是太谢谢了..回去好好研究下....
  • 打赏
  • 举报
回复
faysky2 2006-02-10
追加显示(上面的写错了):
oRS.Open "select 产品名称 from table1 Union select 产品名称 from table1", oConn, adOpenDynamic, adLockOptimistic
Set DataCombo1.RowSource = oRS
DataCombo1.ListField = "产品名称"
  • 打赏
  • 举报
回复
faysky2 2006-02-10
改一下查询语句就行了:

并排显示:
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

  • 打赏
  • 举报
回复
prominent 2006-02-10
想把它们并排显示...麻烦大哥了...呵呵...
  • 打赏
  • 举报
回复
faysky2 2006-02-10
你是想把 产品名称和产品代码 并排显示??
还是把产品代码追加在产品名称后面?
  • 打赏
  • 举报
回复
prominent 2006-02-10
谢谢楼上的...我还有个小提问?
您的好像只会显示一个字段,如果我想显示多个字段呢?如:下拉框中显示产品名称和产品代码两个字段.
  • 打赏
  • 举报
回复
faysky2 2006-02-10
使用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
  • 打赏
  • 举报
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2006-02-10 09:06
社区公告
暂无公告