///////还有它提供的TEXT和VALUE属性有什么区别?///////
Private Sub Form_Load()
With Me.ComboBox1
.ColumnCount = 3
.BoundColumn = 2
.AddItem "a"
.AddItem "b"
.AddItem "c"
.Column(1, 0) = 1
.Column(1, 1) = 2
.Column(1, 2) = 3
End With
End Sub
'选中一条后测试
Private Sub Command1_Click()
MsgBox Me.ComboBox1.Text
MsgBox Me.ComboBox1.Value
End Sub