Access VBA教程:ListCount属性

使用 ListCount属性可以确定列表框或组合框中的列表框部分的行数。Long 型,可读写。

expression.ListCount

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

说明

Microsoft Access 将 ListCount属性设为列表框中的行数,或者组合框中的列表框部分的行数。ListCount属性的值为只读,用户不能进行设置。

该属性仅在使用Vosual Basic 时才可用。而在“窗体”视图和“数据表”视图中为只读属性。

ListCount属性设置包含组合框列表部分的总行数,或列表框中的总行数,由控件的RowSourceRowSourceType属性确定。如果控件基于表或查询(RowSourceType属性设为“表/查询”,并且 RowSource属性设为特定的表或查询),则 ListCount属性设置值将包含表或查询结果集中的记录数。如果 RowSourceType属性设为“值列表”,则 ListCount属性设置将包含在 RowSource属性中指定的值列表行数(这取决于值列表和列表框或组合框列表的列数,这由ColumnCount属性进行设置)。

如果将ColumnHeads属性设为“是”,则列标题所在的行将包括在 ListCount属性返回的行数中。对基于表或查询的组合框和列表框而言,添加列标题等于另外增加一行;而对于基于值列表的组合框和列表框而言,添加列标题并不改变行数(第一行的值成为列标题)。

可以使用 ListCount属性和ListRows属性指定组合框中列表框部分要显示的行数。

VBA示例

下面的示例将使用 ListCount属性查找“客户”窗体上“客户列表”组合框中列表框部分的行数,然后设置 ListRows属性,以便在列表中显示指定的行数。


Public Sub SizeCustomerList()
    Dim ListControl As Control
    Set ListControl = Forms!Customers!CustomerList
    With ListControl
        If .ListCount < 8 Then
            .ListRows = .ListCount
        Else
            .ListRows = 8
        End If
    End With
 End Sub

上页:Access VBA教程:LinkMasterFields属性 下页:Access VBA教程:ListIndex属性

Access VBA教程:ListCount属性

Access VBA教程:ListIndex属性 Access VBA教程:ListRows属性
Access VBA教程:ListWidth属性 Access VBA教程:LocationOfComponents属性
Access VBA教程:Locked属性 Access VBA教程:LogMessages属性
Access VBA教程:LpOleObject属性 Access VBA教程:MailEnvelope属性
Access VBA教程:Major属性 Access VBA教程:MaxRecButton属性
Access VBA教程:MaxRecords属性 Access VBA教程:MDE属性
Access VBA教程:Me属性 Access VBA教程:MenuBar属性
Access VBA教程:MinMaxButtons属性 Access VBA教程:Minor属性
Access VBA教程:Modal属性 Access VBA教程:Module属性
Access VBA教程:Modules属性 Access VBA教程:MousePointer属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号