combo问题？

LICHIBIN 2003-08-20 11:03:26

COMBO 想显两个字段内容，而选一个结果：
如COMBO下拉后显‘ID’，’名称‘。选中后的“ID”的值。

...全文

50 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

lihonggen0 2003-08-20

打赏
举报

你可以考虑将你的id加入ItemData属性

Combo1.AddItem "0xx"
Combo1.ItemData(0) = 0 '你第0项的id值
Combo1.AddItem "1xx"
Combo1.ItemData(1) = 1 '你第1项的id值
Combo1.AddItem "2xx"
Combo1.ItemData(2) = 2 '你第2项的id值

在点击的时候就很容易取出id值了

Private Sub Combo1_Click()
MsgBox Combo1.ItemData(Combo1.ListIndex)
End Sub

lihonggen0 2003-08-20

打赏
举报

didishu0807 2003-08-20

打赏
举报

利用combobox的tag值吧

of123 2003-08-20

打赏
举报

假定ID值是数值型，数值大小不超过长整型

Dim tmp As String
Do Until rs.EOF
tmp ＝ Cstr(rs!ID)
Combo1.AddItem tmp & Space(12 - Len(tmp)) & rs!名称
Combo1.Itemdata(Combo1.NewIndex) = rs!ID
rs.MoveNext
Loop

Private Sub Combo1_Click()
Dim n As Long
n = Combo1.Itemdata(Combo1.listindex)
Msgbox "您选中的ID = " & n
End Sub

LICHIBIN 2003-08-20

打赏
举报

试**的方法

aiur2000 2003-08-20

打赏
举报

比如rs!id 和rs!nam:

do while not rs.eof
combo1.additem rs!id & " " & rs!nam '中间插入空格
rs.movenext
loop
'a是数组
a＝split(trim(combo1.text)," ") '用判断空格来分
会得到a(1)和a(2)
查询时再用a(1)和a(2)即可

lihonggen0 2003-08-20

打赏
举报

利用Combo的ItemData属性加入你的id值

Private Sub Combo1_Click()
MsgBox Combo1.ItemData(Combo1.ListIndex)
End Sub

Private Sub Form_Load()

Combo1.AddItem "0xx"
Combo1.ItemData(0) = 0
Combo1.AddItem "1xx"
Combo1.ItemData(1) = 1
Combo1.AddItem "2xx"
Combo1.ItemData(2) = 2

End Sub