ApplyFilter 方法

优质

小牛编辑

128浏览

2023-12-01

将筛选应用于邮件合并数据源，筛选满足特定条件的指定记录。

expression.ApplyFilter

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