2012-06-26 141 views
7

Possible Duplicate:
Adding items in a Listbox with multiple columnsVBA列表框多列添加

隨着MFC VC++有兩個控制,ListBoxListCtrl。但用VBA看來我們只有ListBox

我想創建一個帶有2列(Company_ID,Company_Name)的列表框。

這裏是我的嘗試:

  1. 我創建lstbox(控制類型列表框)
  2. 行源類型=值列表
  3. 我從兩個編輯框取值從用戶,當用戶點擊「添加」,那麼它應該被添加到2列的列表框。

在VBA代碼例程我添加下列行:

lstbox.ColumnCount = 2 
lstbox.AddItem (Company_ID) 

下面的代碼不工作,這似乎與添加列值有關:

lstbox.Column(1,lstbox.ListCount - 1) = Company_name 

這使錯誤:

Runtime error '424' object required.

任何人都可以幫助智慧h vba代碼添加到多列列表框。

回答

22

簡單的例子(抗衡):

With Me.lstbox 
    .ColumnCount = 2 
    .ColumnWidths = "60;60" 
    .AddItem 
    .List(i, 0) = Company_ID 
    .List(i, 1) = Company_name 
    i = i + 1 

end with 

確保用啓動計數器,而不是1,填補了一個列表框。

+0

我只在用戶表單的情況下添加。 – Trace

+0

'With'語句中的'Me.lstbox'是多餘的。 – 2016-09-26 20:45:37