combo 里从数据库表里循环出来了ID ，NAME想把ID隐藏，只显示NAME，怎么办？

Question

从数据库表里循环出来了ID ，NAME放在combo 里了，想把ID隐藏，只显示NAME，并选择NAME时能获取响应的ID，
怎么办？
    While Not Adodc_dkfangshi.Recordset.EOF
       CompanyID = Adodc_dkfangshi.Recordset.Fields("DKFangShiID")
       CompanyName = Adodc_dkfangshi.Recordset.Fields("DKFangShiName")
       IDName = CompanyID + " " + CompanyName
       Combo_dkFangShi.AddItem IDName
       Adodc_dkfangshi.Recordset.MoveNext
    Wend

Answer 1

如果你的id是整形，可以这样做：
dim  i as integer
i=0
While   Not   Adodc_dkfangshi.Recordset.EOF 
    CompanyID   =   Adodc_dkfangshi.Recordset.Fields("DKFangShiID") 
    CompanyName   =   Adodc_dkfangshi.Recordset.Fields("DKFangShiName") 
    IDName   =   CompanyID   +   "   "   +   CompanyName 
    Combo_dkFangShi.AddItem   companyname,i
    Combo_dkFangShi.itemdata(0)=companyid
    Adodc_dkfangshi.Recordset.MoveNext 
Wend

Answer 2

不好意思，上面的有错误 ，这个是
如果你的id是整型，可以这样做： 
dim     i   as   integer 
i=0 
While       Not       Adodc_dkfangshi.Recordset.EOF   
        CompanyID       =       Adodc_dkfangshi.Recordset.Fields("DKFangShiID")   
        CompanyName       =       Adodc_dkfangshi.Recordset.Fields("DKFangShiName")   
        IDName       =       CompanyID       +       "       "       +       CompanyName   
        Combo_dkFangShi.AddItem       companyname,i 
        Combo_dkFangShi.itemdata(i)=companyid 
        i=i+1
        Adodc_dkfangshi.Recordset.MoveNext   
Wend

Answer 3

IDName   =   CompanyID   +   "   "   +   CompanyName 
改成
IDName   =  CompanyName