我找不到根据从数据库检索到的值来为 ComboBox 对象设置值的方法。 当我填充组合框时,我使用以下代码:
Do while Not rs1.EOF
Cboneighborhood.AddItem rs1!Description
Cboneighborhood.ItemData(CboBarrio.NewIndex) = rs1!Idneighborhood
Loop
当我检索员工的数据时(员工表有一个名为 IdNeighborhood 的字段),我希望组合框设置与此 ID 匹配的文本值。
我无法使用该属性
Cboneighborhood.Text
因为它是 2-DropDown 列表类型。
非常感谢您的帮助。 提前致谢
最佳答案
当您获得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
关于combobox - VB6根据数据库数据选择组合框文本值,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18422210/