| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 多条件组合问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152682) |
| -- 作者：swagger -- 发布时间：2020/7/18 12:50:00 -- 多条件组合问题 如果第一列等于pd1或者第一列等于pd2，并且第二列（逻辑列）是true的话，就弹出对话框 “正确”。 这个条件组合该怎么写？ If Tables("表a").Current("第一列") = "PD1" or Tables("表a").Current("第一列") = "PD2" AndAlso Tables("表a").Current("第二列") = True Then msgbox（"正确"） elseIf Tables("表a").Current("第一列") = "PD3" or Tables("表a").Current("第一列") = "PD3" AndAlso Tables("表a").Current("第二列") = True Then msgbox（"正确"） else msgbox（"错误"） end if |
| -- 作者：swagger -- 发布时间：2020/7/18 12:58:00 -- 这两种方法可以，但是有没有办法实现更简单的方法： If Tables("表a").Current("第一列") = "PD1" or Tables("表a").Current("第一列") = "PD2" Then if Tables("表a").Current("第二列") = True msgbox（"正确"） elseIf Tables("表a").Current("第一列") = "PD3" or Tables("表a").Current("第一列") = "PD3" Then if Tables("表a").Current("第二列") = True msgbox（"正确"） else msgbox（"错误"） end if If Tables("表a").Current("第一列") = "PD1" andalso if Tables("表a").Current("第二列") = True then msgbox（"正确"） else or Tables("表a").Current("第一列") = "PD2" andalso if Tables("表a").Current("第二列") = True then msgbox（"正确"） else msgbox（"错误"） end if |
| -- 作者：有点蓝 -- 发布时间：2020/7/18 13:51:00 -- 只能这样 |