ComboBox.Column 属性 (Access)

使用 Column 属性可引用多列组合框或列表框中的特定列或列和行组合。 只读变体。

语法

表达式。列 (索引、 行)

表达 一个代表 ComboBox 对象的变量。

参数

名称	必需/可选	数据类型	说明
Index	必需	Long	长整型范围可以从 0 到属性设置的 列数 减一。
Row	可选	Variant	一个整数，可减 1 之间的 ListCount 属性设置为介于 0。

备注

用 0 引用第一列，用 1 引用第二列，依此类推。 用 0 引用第一行，用 1 引用第二行，依此类推。 例如在含有一列客户 ID 和一列客户名称的列表框中，可以使用如下方式引用第二列、第五行的客户名称：

 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。