Access (Control.Column 屬性)

使用 Column 屬性可參照多欄下拉式方塊或清單方塊中的特定資料行或資料行和資料列組合。 唯讀的 Variant。

語法

運算式。資料 行 (索引、 資料列)

表達 代表 Control 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Index	必要	Long	長整數的範圍從 0 到減一 ColumnCount 屬性的設定。
Row	選用	Variant	整數的範圍從 0 到 ListCount 屬性減 1 的設定。

註解

請用 0 參照第一資料行、用 1 參照第二資料行，以此類推。 使用 0 去參照第一資料列、1 去參照第二資料列，以此類推。 例如，在清單方塊中有一資料行是客戶編號，一資料行是客戶名稱，您可以用下列語法來參照第二資料行、第五列的客戶名稱：

 Forms!Contacts!Customers.Column(1, 4)

使用 Column 屬性可將下拉式方塊或清單方塊的內容指派給另一個控制項，例如文字方塊。 例如，若要將文字方塊的 ControlSource 屬性設定為清單方塊第二欄中的值，您可以使用下列運算式。

 =Forms!Customers!CompanyName.Column(1)

如果使用者具有可沒有選取範圍的下拉式方塊或清單方塊中的資料行參照時， Column 屬性設定值將為 Null 。 使用 IsNull 函式 來判斷是否已進行選取，如下列範例所示。

 If IsNull(Forms!Customers!Country) 
   Then MsgBox "No selection." 
 End If

注意事項

[!注意事項] 若要確定下拉式方塊或清單方塊有多少個資料行，您可以檢查 檢閱 ColumnCount 屬性設定值。

範例

下列範例使用 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 
 Else 
 Debug.Print "You haven't selected an entry in the " _ 
 & "list box." 
 End If 
 
 Set frmCust = Nothing 
 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。