Office VBA教程:Comparison属性

返回或设置一个MsoFilterComparison 常量,表示如何比较ColumnCompareTo属性。可读写。

MsoFilterComparison 可以为下列 MsoFilterComparison 常量之一。
msoFilterComparisonContains
msoFilterComparisonEqual
msoFilterComparisonGreaterThan
msoFilterComparisonGreaterThanEqual
msoFilterComparisonIsBlank
msoFilterComparisonIsNotBlank
msoFilterComparisonLessThan
msoFilterComparisonLessThanEqual
msoFilterComparisonNotContains
msoFilterComparisonNotEqual

expression.Comparison

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教程:CompareTo属性 下页:Office VBA教程:Condition属性

Office VBA教程:Comparison属性

Office VBA教程:Condition属性 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属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号