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

这是很基础的问题呀

Dim Filter As String

filter=""

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

此主题相关图片如下：搜狗截图20150621185442.png

 

Val3 =RibbonTabs("方圆置业")("各期明细查询")("银行1").text

        If Val3 <>"" Then

            If Filter > "" Then

                Filter = Filter & " And "

            End If

            Filter = Filter & "[贷款银行] = '" & Val3 & "'"

        End If

        

        Val1  = RibbonTabs("方圆置业")("各期明细查询")("年度1").text

        Val2  =RibbonTabs("方圆置业")("各期明细查询")("月份1").text

        If Val1 <>""  And Val2 ="" Then

            If Filter > "" Then

                Filter = Filter & " And "

            End If

            Filter = Filter & "[数据日期] >= "  &Val1 & "01   and  [数据日期] <= "  &Val1 & "12"

        End If

        

        If Val1 <>""  And Val2 <>"" Then

            If Filter > "" Then

                Filter = Filter & " And "

            End If

            Filter = Filter & "[数据日期] = "  &Val1 &val2

        End If

        

        Val6 =RibbonTabs("方圆置业")("各期明细查询")("期数").text

        If Val6 <>"" Then

            If Filter > "" Then

                Filter = Filter & " And "

            End If

            If Val6 <6 Then

                Filter = Filter & "[违约期数] = " & Val6

            Else

                Filter = Filter & "[违约期数] >= " & Val6

                

            End If

        End If

        

        'DataTables("JKQK").LoadFilter=Filter

        'DataTables("JKQK").Load()

        'DataTables("联系记录").LoadFilter=""

        'DataTables("联系记录").Load()

        'DataTables("JKR").LoadFilter=""

        'DataTables("JKR").Load()

        '

        

        Val5 =RibbonTabs("方圆置业")("查询")("姓名").text

        If Val5 <>"" Then

            If Filter > "" Then

                Filter = Filter & " And "

            End If

            Filter = Filter & "[姓名] like '%" & Val5 & "%'"

        End If

        Val4 =RibbonTabs("方圆置业")("查询")("帐号").text

        If Val4 <>"" Then

            If Filter > "" Then

                Filter = Filter & " And "

            End If

            Filter = Filter & "[贷款帐号] = '" & Val4 & "'"

        End If

        Val7 =RibbonTabs("方圆置业")("查询")("工作单位").text

        If Val7 <>"" Then

            If Filter > "" Then

                Filter = Filter & " And "

            End If

            Filter = Filter & "[工作单位] like '%" & Val7 & "%'"

        End If

        

        Val8  = RibbonTabs("方圆置业")("查询")("抵押物地址").text

        If Val8 <>"" Then

            If Filter > "" Then

                Filter = Filter & " And "

            End If

            Filter = Filter & "[抵押物地址] like '%" & Val8 & "%'"

        End If

        

        Tables("JKQK").Filter=Filter