2014-03-14 74 views
1

有人可以請給我一個簡單的例子,說明如何將值添加到多列列表框中的VBScript。 例如,我有4列,我想添加一行。添加項目到多列列表框

http://msdn.microsoft.com/en-us/library/office/ff869962%28v=office.15%29.aspx我試過這個例子,但它一直告訴我它找不到成員.List。

我在MS Access中使用VBScript。我有一個帶有列表框的表單。我想填充這個帶有文本框值的列表框,當我點擊添加時,文本框中的值被添加到它們特定列下的列表框中。

我一直在尋找無濟於事 - 我還沒有找到一個有效的例子,或者至少我錯過了一些導入?

+1

你見過這個[**教程**](http://vba4all.wordpress.com/category/vba-macros/two-column-listbox-userform-and-saving-results-to-spreadsheet/ ),特別是'With ListBox1 .AddItem TextBox1.Value .List(.ListCount - 1,1)= TextBox2.Value End With' – 2014-03-14 08:56:49

+0

謝謝我會看看 – michelle

回答

1

我記得我曾經這樣做,來到了此解決方案:

Private Sub test() 
    Me.lboTest.RowSourceType = "Value List" 
    Me.lboTest.BoundColumn = 1 
    Me.lboTest.ColumnCount = 2 
    Me.lboTest.RowSource = "0;red;1;green;2;yellow;3;blue" 
End Sub 

;預先組裝的字符串(或閱讀和追加值,然後將它寫回)。
我不知道是否有其他方法。

Btw。,只是爲了確保你得到這個權利:VBA和VBScript是不同的東西。如果您在Access本身內編寫此代碼,則您使用的是VBA,而不是VBScript。

+0

我用過你的方法,由於某種原因它是隻是向我展示了數字0,1,2,3,並沒有向我展示第二列。任何想法爲什麼? 也謝謝你 - 我不知道我害怕。 – michelle

+1

是的,在設計器中選擇列表框,轉到屬性中的「格式」選項卡並設置「列寬」。到「0釐米; 10釐米」 - 這將隱藏第一列。 (我正在使用德語版本,也許你必須使用''',而不是';'在那裏......) – KekuSemau

+0

哦,好的,非常感謝你!它工作:)我 – michelle