组合框如可能显示二列呀？如何取第二列？

Question

组合框如可能显示二列呀？如何取第二列？

Answer 1

两列内容用特殊字符合在一起，如A|B，取A为：mid("A|B",1,instr("A|B","|")-1)

Answer 2

这样：combo1.additem "col1" & vbTab & "col2"提取：
dim a() as string
a = split(combo1.list(combo1.listindex), vbTab)
msgbox a(1)

Answer 3

combo1.additem "col1" & vbTab & "col2"提取：
dim a() as string
a = split(combo1.list(combo1.listindex), vbTab)
msgbox a(1)
-------------------------------
我试了，报错呀，老大，请教我。

Answer 4

报什么错？你的VB不是微软的？
msgbox a(0) 或者 msgbox a(1) 都正点得一塌糊涂。
除非你括号里用的是英文"l" 而不是数字"1"

Answer 5

提取：
dim a() as string
a = split(combo1.list(combo1.Text), vbTab)
msgbox a(1)

Answer 6

报什么错？你的VB不是微软的？
msgbox a(0) 或者 msgbox a(1) 都正点得一塌糊涂。
除非你括号里用的是英文"l" 而不是数字"1"
-------------------------------------
你如何这么自信呀？你试过吗就说话。你试下再说好不好呀？

Answer 7

of123() 的方法肯定没错：
示例：
Private Sub Command1_Click()
Dim a() As String
a = Split(Combo1.List(Combo1.ListIndex), vbTab)
MsgBox a(1)
End SubPrivate Sub Form_Load()
Combo1.AddItem "col1" & vbTab & "col2"
End Sub

Answer 8

of123() 的方法肯定没错：
示例：
Private Sub Command1_Click()
Dim a() As String
a = Split(Combo1.List(Combo1.ListIndex), vbTab)
MsgBox a(1)
End SubPrivate Sub Form_Load()
Combo1.AddItem "col1" & vbTab & "col2"
End Sub
---------------------------------
谢谢热心，
我运行了，确实报错：实时错误9,下标越界