多条件组合问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多条件组合问题

共有2155人关注过本帖树形打印复制链接主题：多条件组合问题

swagger

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

多条件组合问题 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：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

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107034 积分：544401 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/7/18 13:51:00 [只看该作者]

只能这样

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

主题：多条件组合问题