VB6根据数据库数据选择组合框文本值答案

【问题标题】：VB6 Select combobox text value based on database dataVB6根据数据库数据选择组合框文本值
【发布时间】：2013-08-24 19:16:28
【问题描述】：

我找不到根据从数据库检索到的值为 ComboBox 对象设置值的方法。当我填充组合框时，我使用以下代码：

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

当我检索员工的数据时（Employee 表有一个名为 IdNeighborhood 的字段），我希望组合框设置与此 ID 匹配的文本值。

我无法使用该属性

Cboneighborhood.Text

因为它是 2-DropDown List 类型。

您的帮助将不胜感激。提前致谢

【问题讨论】：

标签： combobox vb6 setvalue

【解决方案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

【讨论】：