ObjectFrame.ColumnCount 属性 (Access)

使用 ColumnCount 属性可以指定在列表框或组合框的列表框部分中显示的列数，或者发送到图表控件或未绑定对象帧中的 OLE 对象的列数。 Integer 型，可读/写。

语法

表达式。ColumnCount

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

备注

列数 属性包含一个介于 1 和数表、 查询或 SQL 语句中的字段或控件的 行来源 属性中指定的值列表中的值的最大数目。

对于表字段，您可以设置此属性在表设计视图的字段属性部分中的 查阅 选项卡上的 DisplayControl 属性设为组合框或列表框。

例如，如果将 Employees 窗体上列表框的 ColumnCount 属性设置为 3，则一列可以列出姓氏，另一列可以列出名字，第三列可以列出员工 ID 号。

组合框或列表框中可以有多个列。 如果控件的 行来源 属性中包含的表、 查询或 SQL 语句的名称，将组合框或列表框中将显示来自源，从左到右，向上的 列数 属性指定的数量的字段。

若要显示域的不同组合，创建一个新查询或 行来源 属性中，指定域和所需的顺序新的 SQL 语句。

如果 行来源 属性中包含的值 ( 行来源类型 属性设置为值列表) 的列表，则值将放入的行和列的组合框或列表框中的 行来源 属性中列出的顺序中。 例如，如果将 行来源 属性包含列表"红色;绿色;蓝色;黄色"和 列数 属性设置为 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 
 Else 
 Debug.Print "You haven't selected an entry in the " _ 
 & "list box." 
 End If 
 
 Set frmCust = Nothing 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。