Office VBA教程:Conjunction属性

返回或设置一个MsoFilterConjunction 常量,表示ODSOFilters对象中某个筛选条件与其他筛选条件的关系。可读写。

MsoFilterConjunction 可以为下列 MsoFilterConjunction 常量之一。
msoFilterConjunctionAnd
msoFilterConjunctionOr

expression.Conjunction

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

VBA示例

本示例更改已有筛选,从邮件合并中删除所有 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教程:Condition属性 下页:Office VBA教程:Connect属性

Office VBA教程:Conjunction属性

Office VBA教程:Connect属性 Office VBA教程:Connector属性
Office VBA教程:ConnectString属性 Office VBA教程:Context属性
Office VBA教程:Controls属性 Office VBA教程:Count属性
Office VBA教程:Creator属性 Office VBA教程:DataSource属性
Office VBA教程:Description属性 Office VBA教程:DescriptionText属性
Office VBA教程:DialogType属性 Office VBA教程:DisableAskAQuestionDropdown属性
Office VBA教程:DisableCustomize属性 Office VBA教程:DisplayFonts属性
Office VBA教程:DisplayKeysInTooltips属性 Office VBA教程:DisplayTooltips属性
Office VBA教程:DropDownLines属性 Office VBA教程:DropDownWidth属性
Office VBA教程:Enabled属性 Office VBA教程:ExpireDate属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号