如何把这种多条件判断的写法简化呢。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4716人关注过本帖树形打印复制链接主题：如何把这种多条件判断的写法简化呢。

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 [只看该作者]

值得学习

下一主题 >> << 上一主题

主题：如何把这种多条件判断的写法简化呢。