2017-03-29 170 views
0

這是我正在開發的一箇舊的Vb6應用程序 - 而且我爲設置組合框的值有些困難。無法將值設置爲組合框

我第一次加載數據到組合框 - 請注意 - 我只是在組合框中設置文本值,沒有ID。下面是什麼代碼看起來像......

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 

所以會發生什麼是我有這個功能,我傳遞也叫做ComboxName oCombobox。在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 
+0

您是否知道VB的對象瀏覽器?嘗試探索ComboBox類成員 – deblocker

+0

@deblocker不知道我是否使用過它。我試圖讓這個函數工作 - 它在加載組合框時非常好用,當我想選擇它時,但在設置值時不會這樣做。在屬性中列設置爲1.什麼可能是錯誤的? – BobSki

+0

否定評論?請解釋 – BobSki

回答

2

VB.ComboBox沒有ColumnCount財產。

+0

它的確如此,這是組合框2.0或SScombobox - 不管名稱是什麼 – BobSki

+0

...... VS6安裝程序的創建者? Upvote你的參與! – deblocker