Access VBA教程:ColumnCount属性

使用 ColumnCount属性可以指定列表框中或组合框的列表框部分所显示的列数,或者送往图表控件未绑定对象框上OLE对象中的列数。

expression.ColumnCount

expression   必需。返回“Applies To”列表中的一个对象的表达式。

设置

ColumnCount属性值是一个从 1 到表、查询或SQL 语句中字段最大数目或值列表中值的最大数目之间的整数,由控件的RowSource属性指定。

使用控件的属性表Visual Basic,可以设置 ColumnCount属性。

对于表字段,可以在表“设计”视图中“字段属性”部分的“查阅”选项卡上,对将DisplayControl属性设为“组合框”或“列表框”的字段设置该属性

提示   当在表“设计”视图中将“查阅向导”选作字段的数据类型时,Microsoft Access 将自动设置 ColumnCount属性。

说明

例如,如果将“雇员”窗体上列表框的 ColumnCount属性设为 3,则一列可以显示姓氏,另一列可以显示名字,第三列可以显示雇员 ID 号。

组合框或列表框可以有很多列。如果控件的 RowSource属性包含表、查询或 SQL 语句的名称,则组合框或列表框将从左到右显示那一数据源中的字段,显示的数目由 ColumnCount属性来指定。

若要显示字段的不同组合,请为 RowSource属性创建一个新的查询或新的 SQL 语句,并指定所需的字段和顺序。

如果 RowSource属性中含有值的列表(RowSourceType属性设为“值列表”),则这些值会以其在 RowSource属性中列出的顺序放在组合框或列表框的行和列中。例如,如果 RowSource属性含有一个“红;绿;蓝;黄”列表,并且 ColumnCount属性设为 2,则组合框或列表框的第一行将包括第一列的“红”和第二列的“绿”,第二行将包括第一列的“蓝”和第二列的“黄”。

可以使用ColumnWidths属性来设置控件中显示的列的宽度,或者用于隐藏列。

VBA示例

以下示例使用 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

上页:Access VBA教程:Column属性 下页:Access VBA教程:ColumnHeadings属性

Access VBA教程:ColumnCount属性

Access VBA教程:ColumnHeadings属性 Access VBA教程:ColumnHeads属性
Access VBA教程:ColumnHidden属性 Access VBA教程:ColumnOrder属性
Access VBA教程:ColumnSpacing属性 Access VBA教程:ColumnWidth属性
Access VBA教程:ColumnWidths属性 Access VBA教程:COMAddIns属性
Access VBA教程:CommandBars属性 Access VBA教程:CommandBeforeExecute属性
Access VBA教程:CommandChecked属性 Access VBA教程:CommandEnabled属性
Access VBA教程:CommandExecute属性 Access VBA教程:CommitOnClose属性
Access VBA教程:CommitOnNavigation属性 Access VBA教程:Connection属性
Access VBA教程:ConnectionString属性 Access VBA教程:ControlBox属性
Access VBA教程:Controls属性 Access VBA教程:ControlSource属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号