Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何把这种多条件判断的写法简化呢。


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

主题：如何把这种多条件判断的写法简化呢。
帅哥哟，离线，有人找我吗？
ndxfke
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00 		如何把这种多条件判断的写法简化呢。  发帖心情 Post By：2014/3/23 13:53:00 [只看该作者]

这种写法很原始，代码也很多。

有没有很简化的写法呢，求助。

If vars("flr1") > "" And vars("flr2")  = "" And vars("flr3") = "" Then
    flr = vars("flr1")
ElseIf vars("flr1") = "" And vars("flr2")  > "" And vars("flr3") = "" Then
    flr = vars("flr2")
ElseIf vars("flr1") = "" And vars("flr2")  = "" And vars("flr3") > "" Then
    flr = vars("flr3")
ElseIf vars("flr1") > "" And vars("flr2")  > "" And vars("flr3") = "" Then
    flr = vars("flr1") & " And  " & vars("flr2")
ElseIf vars("flr1") = "" And vars("flr2")  > "" And vars("flr3") > "" Then
    flr = vars("flr2") & " And  " & vars("flr3")
ElseIf vars("flr1") > "" And vars("flr2")  = "" And vars("flr3") > "" Then
    flr = vars("flr1") & " And " & vars("flr3")
ElseIf vars("flr1") > "" And vars("flr2")  > "" And vars("flr3") > "" Then
    flr = vars("flr1") & " And " & vars("flr2") & " And " & vars("flr3")
End If

Tables("生产数据查询_Table1").Filter = flr
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/3/23 14:12:00 [只看该作者]

For i As Integer = 1 To 3
    If vars("flr" & i) > "" Then
        flr + = " And " & vars("flr" & i)
    End If
Next
If flr > "" Then
    flr = flr.SubString(5)
End If
Tables("生产数据查询_Table1").Filter = flr

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


加好友 发短信
等级：三尾狐 帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00 		  发帖心情 Post By：2014/3/23 14:15:00 [只看该作者]

就是这种效果啊，多谢 lsy

貌似帮助没例子样，
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/3/23 15:05:00 [只看该作者]

一是字符串，二是循环，这两样琢磨的差不多了，代码就苗条了。

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


加好友 发短信
等级：三尾狐 帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00 		  发帖心情 Post By：2014/3/23 15:31:00 [只看该作者]

图片点击可在新窗口打开查看

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


加好友 发短信
等级：五尾狐 帖子：1100 积分：8985 威望：0 精华：0 注册：2014/3/15 14:36:00 		  发帖心情 Post By：2014/3/23 16:10:00 [只看该作者]

值得学习

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询