主题：怎样满足一个条件即可出结果

老师，这段代码要满足三个条件才能出结果，怎样满足一个就可以出结果

Dim Filter As String

With RibbonTabs("cxfx").Groups("zhcx").Items("xjjg")

    If .text IsNot Nothing Then

        Filter = "县联社 = '" & .text & "'"

    End If

End With

With RibbonTabs("cxfx").Groups("zhcx").Items("dkfs")

    If .text IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "贷款方式 = '" & .text & "'"

    End If

End With

With RibbonTabs("cxfx").Groups("zhcx").Items("fxxt")

    If .text IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "贷款形态 = '" & .text & "'"

    End If

    Tables("dkye").Filter = Filter

End If