Office VBA教程:RowCount属性

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

expression.RowCount

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

VBA示例

本示例新添一个删除 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

上页:Office VBA教程:Reduced属性 下页:Office VBA教程:RowIndex属性

Office VBA教程:RowCount属性

Office VBA教程:RowIndex属性 Office VBA教程:ScopeFolder属性
Office VBA教程:ScopeFolders属性 Office VBA教程:ScriptText属性
Office VBA教程:SearchFolders属性 Office VBA教程:SearchScopes属性
Office VBA教程:SearchSubFolders属性 Office VBA教程:SearchWhenProgramming属性
Office VBA教程:SecondValue属性 Office VBA教程:SelectedItems属性
Office VBA教程:Shape属性 Office VBA教程:ShortcutText属性
Office VBA教程:SignDate属性 Office VBA教程:Signer属性
Office VBA教程:Sounds属性 Office VBA教程:State属性
Office VBA教程:Style属性 Office VBA教程:Table属性
Office VBA教程:Tag属性 Office VBA教程:Text属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号