使用
ColumnCount
屬性可指定清單方塊或下拉式方塊之清單方塊部分中顯示的資料行數目，或是傳送至圖表控制項或未系結物件框架中的 OLE 物件。 可讀寫的
Integer
。
運算式
。
ColumnCount
表達
代表
ComboBox
物件的變數。
ColumnCount
屬性包含介於 1 到資料表、 查詢或 SQL 陳述式中欄位的數目上限或控制項的
RowSource
屬性中指定的值清單中的值數目上限之間的整數。
針對
資料表欄位
，您可以在資料表設計檢視的 [欄位內容] 區段中的 [
查閱
] 索引標籤上設定此屬性
DisplayControl
屬性設定為下拉式方塊或清單方塊。
例如，如果您將
[員工
] 表單上清單方塊的
ColumnCount
屬性設定為 3，則一個資料行可以列出姓氏，另一個資料行可以列出名字，而第三個數據行可以列出員工識別碼。
下拉式方塊或清單方塊中可以有多個資料欄。 如果控制項的
RowSource
屬性包含資料表、 查詢或 SQL 陳述式的名稱，在下拉式方塊或清單方塊中會顯示從左到右，最多個
ColumnCount
屬性所指定的號碼的該來源的欄位。
若要顯示欄位的不同組合，建立新的查詢或新增 SQL 陳述式
RowSource
屬性，指定的欄位和您想要的順序。
如果
RowSource
屬性包含的值 (
RowSourceType
屬性設為 Value List) 清單，值會放入的列和欄的下拉式方塊或清單方塊
RowSource
屬性中所列出的順序。 例如，如果
RowSource
屬性包含清單"紅色;綠色;藍色;黃色"和
ColumnCount
屬性設定為 2、 下拉式方塊或清單方塊清單的第一列將包含"紅色"中的第一欄和"綠色"第二欄。 第二個資料列會在第一欄與"黃色"第二欄中包含"Blue"。
使用
ColumnWidths
屬性可設定控制項中顯示之資料行的寬度，或隱藏資料行。
下列範例使用
Column
屬性和
ColumnCount
屬性來列印清單方塊選取範圍的值。
Public Sub Read_ListBox()
Dim intNumColumns As Integer
Dim intI As Integer
Dim frmCust As Form
Set frmCust = Forms!frmCustomers
If frmCust!lstCustomerNames.ItemsSelected.Count > 0 Then
' Any selection?
intNumColumns = frmCust!lstCustomerNames.ColumnCount
Debug.Print "The list box contains "; intNumColumns; _
IIf(intNumColumns = 1, " column", " columns"); _
" of data."
Debug.Print "The current selection contains:"
For intI = 0 To intNumColumns - 1
' Print column data.
Debug.Print frmCust!lstCustomerNames.Column(intI)
Next intI
Debug.Print "You haven't selected an entry in the " _
& "list box."
End If
Set frmCust = Nothing
End Sub
下列範例示範如何建立在顯示另一個資料行時系結至某個資料行的下拉式方塊。 設定 ColumnCount 的屬性為 2，即表示 cboDept 下拉式方塊會顯示由 RowSource 屬性所指定資料來源的前兩欄。 設定 BoundColumn 的屬性為 1 ，即表示當您檢查下拉式方塊的值時，會將儲存於第一欄的值傳回。
ColumnWidths屬性會指定兩個數據行的寬度。 藉由將第一欄寬度設定為 0 英吋，第一欄便不會顯示在下拉式方塊。
Private Sub cboDept_Enter()
With cboDept
.RowSource = "SELECT * FROM tblDepartments ORDER BY Department"
.ColumnCount = 2
.BoundColumn = 1
.ColumnWidths = "0in.;1in."
End With
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。
