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

Question

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

Answer 1

Private Sub Command1_Click()
Dim i As Long
For i = 0 To Combo1.ListCount
    Debug.Print Combo1.List(i)
Next i
End Sub
/?这个??

Answer 2

我需要把多字段的值放在同一栏。
如 ：
  编号    姓名
 0001     A
 0002     B
 0003     C

Answer 3

Do Until rs.EOF
  Combo1.AddItem rs!编号 & vbTab & rs!姓名
  rs.MoveNext
Loop

Answer 4

当发生CLICK事件后.TEXT如何只得到第一个字段或第二个字段的值呢？

Answer 5

Private Sub Combo1_Click()
Dim ls_Content() As String
ls_Content = Split(Combo1.Text, vbTab)
MsgBox ls_Content(0)
MsgBox ls_Content(1)
End Sub

Answer 6

//当发生CLICK事件后，TEXT如何只得到第一字段或第二字段的值呢？不大明白你的意思，是只能选择前2项吗？
如果是，你可以这样做
1。选第二项以下都算选第二项
private sub combo1_click()
    if combo1.listindex>1 then combo1.listindex=1
end sub
2.除了这两项，选择其他项等于没选
private sub combo1_click()
    select case combo1.listindex
        case 0,1
        case else
            combo1.listindex=-1
    end select
end sub
你可以试试

Answer 7

可以用Microsoft Form 2.0中的ComboX

Answer 8

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 9

combo1.additem rs.fields(0) +space(5)+rs.fields(1)...

Answer 10

rs.open strsql,conn
while not rs.eof 
    combo1.additem rs.fields(0) & rs.fields(1)
    rs.movenext
wend
rs.close

Answer 11

Combo1.AddItem rs!编号 & vbTab & rs!姓名
那如何杜绝以下栏目排列不一至的问题？
 0001 A
 002 B
 00003 C
如何控制使它的栏目排列为以下：
 0001  A
 002   B
 00003 C