コンボボックスに値を設定できません

Question

これは私が取り組んでいる古いVb6アプリケーションです。コンボボックスに値を設定するのはやや難しいことです。

私はまずコンボボックスにデータを読み込みます。あなたは心配しています - 私はコンボボックスにテキスト値を設定しています。IDはありません。ここだから何が起こることは、私は私がComboxName別名oComboboxを渡し、この機能を持っている...コードがどのように見えるか

Dim z As Integer 
Dim a As Integer 

oCombobox.Clear 
oCombobox.AddItem "", 0 

Call GetValuesForCbo 

Do While Rs.EOF = False 
    z = z + 1 
    oCombobox.AddItem "", z 

    For a = 0 To oCombobox.ColumnCount - 1 
     oCombobox.List(z, a) = Rs.Fields(a).Value 
    Next 

    Rs.MoveNext 
Loop 

です。 CallValuesForCBOでは、データベースにクエリを実行して値を取得します。

The values are definitely there because I don't get an error when i do this... 

m_stringValue = 'Hello' <--this is one of the values I load into combobox 
cboName.Value = m_stringValue <-- while this does not throw an error, it does not display any value in the cbo 

Answer 1

VB.ComboBoxはColumnCount性質を持っていません。