VB6基于数据库数据选择组合框文本值

Question

我无法找到一种方法来根据从数据库检索到的值为组合框对象设置值。当我检索数据的雇员（Employee表中有一个名为IdNeighborhood场），我想组合框设置这个ID匹配的文本值

Do while Not rs1.EOF 
    Cboneighborhood.AddItem rs1!Description 
    Cboneighborhood.ItemData(CboBarrio.NewIndex) = rs1!Idneighborhood 
Loop 

： 当我填写的组合框，我用这个代码。

我不能使用属性

Cboneighborhood.Text 

“因为它是一个2 - 下拉列表类型。

您的帮助将非常感激。 在此先感谢

Answer 1

你只需要通过这样的项目重复，当你得到一个Value：

'Reset to no item. 
Cboneighborhood.ListIndex = -1 
Dim X As Integer 
'Iterate through items. 
For X = 0 To Cboneighborhood.ListCount - 1 
    'Compare value. 
    If Cboneighborhood.ItemData(X) = Value Then 
     'Select it and leave loop. 
     Cboneighborhood.ListIndex = X 
     Exit For 
    End If 
Next X