Office VBA教程:ODSOFilters对象

   
OfficeDataSourceObject
ODSOFilters
ODSOFilter

表示应用于附加到邮件合并发布内容的数据源的所有筛选。ODSOFilters对象由 ODSOFilter对象组成。

使用 ODSOFilters对象

使用 ODSOFilters对象的Add方法在查询中新添一个筛选条件。本示例在查询字符串中添加一行,然后将合并的筛选应用于数据源。


Sub SetQueryCriterion()
    Dim appOffice As OfficeDataSourceObject
    Set appOffice = Application.OfficeDataSourceObject
    appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
        "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"
    With appOffice.Filters
        .Add Column:="Region", _
            Comparison:=msoFilterComparisonIsBlank, _
            Conjunction:=msoFilterConjunctionAnd
        .ApplyFilter
    End With
End Sub

使用Item方法访问单个筛选条件。本示例在所有筛选条件中循环,如果找到具有 "Region" 的条件,则将其更改为从邮件合并中删除所有不等于 "WA" 的记录。


Sub SetQueryCriterion()
    Dim appOffice As Office.OfficeDataSourceObject
    Dim intItem As Integer
    Set appOffice = Application.OfficeDataSourceObject
    appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
        "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"
    With appOffice.Filters
        For intItem = 1 To .Count
            With .Item(intItem)
                If .Column = "Region" Then
                    .Comparison = msoFilterComparisonNotEqual
                    .CompareTo = "WA"
                    If .Conjunction = "Or" Then .Conjunction = "And"
                End If
            End With
        Next intItem
    End With
End Sub

上页:Office VBA教程:ODSOFilter对象 下页:Office VBA教程:OfficeDataSourceObject对象

Office VBA教程:ODSOFilters对象

Office VBA教程:OfficeDataSourceObject对象 Office VBA教程:PropertyTest对象
Office VBA教程:PropertyTests集合对象 Office VBA教程:ScopeFolder对象
Office VBA教程:ScopeFolders集合 Office VBA教程:Script对象
Office VBA教程:Scripts集合对象 Office VBA教程:SearchFolders集合
Office VBA教程:SearchScope对象 Office VBA教程:SearchScopes集合
Office VBA教程:Signature对象 Office VBA教程:SignatureSet集合
Office VBA教程:WebPageFont对象 Office VBA教程:WebPageFonts集合对象
Office VBA教程:New对象 Office VBA教程:ActionControl属性
Office VBA教程:ActiveMenuBar属性 Office VBA教程:AdaptiveMenu属性
Office VBA教程:AdaptiveMenus属性 Office VBA教程:AllowMultiSelect属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号