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