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