combo问题？

[LICHIBIN]

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

[oarsman]

据我所知combo本身没有这个功能，你自己做函数处理吧！拆分一下字符串就可以了！

[strongfisher]

combo本身没有这个功能
你用datagrid或listbox控件代替吧

[lisong770818]

同意以上方法，我曾经也用过以上方法，都行。

[射天狼]

如果用COMBO控件的话就得用字符串分隔开,取的时候再分开.
或者用其它的控件带替,或者自己做一个控件.

[lihonggen0]

利用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

[aiur2000]

比如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)即可

[LICHIBIN]

试**的方法

[of123]

假定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

[didishu0807]

利用combobox的tag值吧

[lihonggen0]

你可以考虑将你的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]

你可以考虑将你的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