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

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

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

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

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