RowCount 属性

优质

小牛编辑

130浏览

2023-12-01

返回一个Long 类型，表示指定数据源中的记录数。只读。

expression.RowCount

expression 必需。该表达式返回“应用于”列表中的对象之一。

示例

本示例新添一个删除 Region 字段为空的所有记录的筛选，并将该筛选应用于活动的发布内容。

Sub OfficeFilters()
    Dim appOffice As OfficeDataSourceObject
    Dim appFilters As ODSOFilters

    Set appOffice = Application.OfficeDataSourceObject
    appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
        "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"

    Set appFilters = appOffice.Filters

    MsgBox appOffice.RowCount

    appFilters.Add Column:="Region", Comparison:=msoFilterComparisonEqual, _
        Conjunction:=msoFilterConjunctionAnd, bstrCompareTo:="WA"
    appOffice.ApplyFilter

    MsgBox appOffice.RowCount

End Sub