2

DB から取得した値に基づいて 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 タイプだからです。

どうぞよろしくお願いいたします。前もって感謝します

4

1 に答える 1

4

を取得したら、次のようにアイテムを反復処理する必要があります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
于 2013-08-25T12:20:33.690 に答える