＋设为首页 ＋添加到收藏夹
combobox控件有个方法为：object.AddItem item, index
现在我想在增加“item”的同时，也将另外一个值与“item”绑定在一起，比如我的程序为：
strsql = "select id,name from PhoneManufacturer order by id "
Rs.Open strsql
Do While Not Rs.EOF
cmbPhoManu.AddItem Rs!Name
Rs.MoveNext
Loop
Rs.Close
我希望也将id增加的cmbphomanu中去，但是不显示出来，有什么办法呢
combobox的Itemdata属性是长整形数组，可以保存与列表项有关的整型数
Private Sub Form_Load()
Combo1.AddItem "刘德华"
Combo1.ItemData(Combo1.NewIndex) = 2
Combo1.AddItem "张学友"
Combo1.ItemData(Combo1.NewIndex) = 1
Combo1.AddItem "黎明"
Combo1.ItemData(Combo1.NewIndex) = 3
Combo1.AddItem "郭富城"
Combo1.ItemData(Combo1.NewIndex) = 4
End Sub
Private Sub combo1_Click()
Dim msg As String
msg = Combo1.ItemData(Combo1.ListIndex) & " " & Combo1.List(Combo1.ListIndex)
Label1.Caption = msg
End Sub
同意楼上的！我经常这么用！
