Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样满足一个条件即可出结果


  共有2527人关注过本帖树形打印复制链接

主题：怎样满足一个条件即可出结果
帅哥哟，离线，有人找我吗？
qqking
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：121 积分：1601 威望：0 精华：0 注册：2012/2/27 10:45:00 		怎样满足一个条件即可出结果  发帖心情 Post By：2015/6/21 18:16:00 [只看该作者]

老师，这段代码要满足三个条件才能出结果，怎样满足一个就可以出结果
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
If Filter > "" Then
    Tables("dkye").Filter = Filter
End If
 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2015/6/21 18:25:00 [只看该作者]

这是很基础的问题呀
and  改为  or 

 回到顶部
帅哥哟，离线，有人找我吗？
qqking
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：121 积分：1601 威望：0 精华：0 注册：2012/2/27 10:45:00 		  发帖心情 Post By：2015/6/21 18:32:00 [只看该作者]

不行了，或许我说错了。意思是满足一个条件或满足一个以上都可以

 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2015/6/21 18:38:00 [只看该作者]

这段代码本身就是这样设计的,你试试只输入一个或者2个条件,一样可以
[此贴子已经被作者于2015/6/21 18:38:11编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2015/6/21 18:41:00 [只看该作者]

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
If Filter > "" Then
    Tables("dkye").Filter = Filter
End If
 回到顶部
帅哥哟，离线，有人找我吗？
qqking
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：121 积分：1601 威望：0 精华：0 注册：2012/2/27 10:45:00 		  发帖心情 Post By：2015/6/21 18:44:00 [只看该作者]

不行，还是必须录入三个条件才能出结果

 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2015/6/21 18:48:00 [只看该作者]

哦 这里有问题
RibbonTabs("cxfx").Groups("zhcx").Items("xjjg")
你这是什么?
 回到顶部
帅哥哟，离线，有人找我吗？
qqking
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：121 积分：1601 威望：0 精华：0 注册：2012/2/27 10:45:00 		  发帖心情 Post By：2015/6/21 18:51:00 [只看该作者]

菜单组合框

 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2015/6/21 18:52:00 [只看该作者]

没问题呀
[此贴子已经被作者于2015/6/21 18:53:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2015/6/21 18:57:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图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
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询