ComboX中如何读取多字段（两个字段以上）的值？

Question

如题，不知有什么好方法？

Answer 1

Private Sub Combo1_Click()
    MsgBox Combo1.Text
    MsgBox Combo1.Tag
End SubPrivate Sub Form_Load()
    Dim i As Integer
    For i = 0 To 3
        Combo1.Tag = i           '编号
        Combo1.AddItem "A" & i   '姓名
    Next
End SubClick事件中，Tag属性就获取编号，text属性就获取姓名

Answer 2

写入
dim a() as string
for i=1 to 100
    combo1.additem d1
    a(i)=rs!d2
next

Answer 3

ComboX实现不了两列显示，如果想实现可以做个控件，估计难度挺大

Answer 4

读取
rs!d1=combo1.text
rs!d2=a(combo1.ListIndex)

Answer 5

把他们专程一种类型，穿起来select就行了

Answer 6

多列可以用分隔符combo1.additem 列1 & 列2 & 列3如果显示是一列而读另外一列，可以用ItemData

Answer 7

实现两列实例代码,,,下载
http://club.5ivb.net/dispbbs.asp?boardID=1&ID=40002