VB中combo控件，如何带多个参数

Question

combo.additem  时我想传递两个参数怎么做
如 id =1  , type=2

Answer 1

可是一定要用到combo 控件

Answer 2

dim i as integer
i=0
combo1.additem "aaa"
combo1.itemdata(i)=12312

Answer 3

比如一个表有三个字段 id ,type ,namecombo.additem  rs("name")当 combo_click 时，怎么显示 id ,type? 

Answer 4

把两个字符串相加
rs!name & rs!id

Answer 5

Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To 10
        Combo1.AddItem "编号：" & rs("id ")      'rs是一记录集
        Combo1.AddItem vbTab & "姓名：" & rs("name")
        Combo1.AddItem vbTab & "类型：" & rs("type")
    Next
End Sub

Answer 6

首先读入到combo控件中Private Sub Form_Load()
Dim snp As New ADODB.Recordset
snp.Open "select * from [表] ", cn
Do While Not snp.EOF()
   combo1.AddItem snp("name") & ""
   xhmc.ItemData(xhmc.NewIndex) = snp("id") & ""
   snp.MoveNext
Loop
snp.close
End Sub
再在combo的单击事件中查找出id对应的东西
Private Sub combo1_Click()
Dim snp As New ADODB.Recordset
snp.Open "SELECT * from 表 Where id = " & combo1.ItemData(xhmc.ListIndex), cn
if not snp.eof()endif
snp.Close
Set snp = Nothing
End Sub
id ,type ,name

Answer 7

n=0    
 Do While Not rs.EOF
        Combo2.AddItem rs.Fields("name").Value
        Combo2.ItemData(n) = rs("type").Value & "," & rs("id").Value
        n = n + 1
        rs.MoveNext
 Loop这样传递两个参数还是有问题