[求助]有四个CheckBox控件,只能选两个 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]有四个CheckBox控件,只能选两个

共有5388人关注过本帖树形打印复制链接主题：[求助]有四个CheckBox控件,只能选两个

tygzjsl

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

等级：童狐帖子：209 积分：1640 威望：0 精华：0 注册：2018/3/5 10:34:00

[求助]有四个CheckBox控件,只能选两个 发帖心情

Post By：2022/7/10 20:25:00 [显示全部帖子]

有四个CheckBox控件,只能选两个，原来代码如下

If e.Form.Controls("CheckBox1").Checked = True AndAlso e.Form.Controls("CheckBox2").Checked = True Then

Filter = Filter & " and 班级 in ('一班','二班') "

End If

If e.Form.Controls("CheckBox1").Checked = True AndAlso e.Form.Controls("CheckBox3").Checked = True Then

Filter = Filter & " and 班级 in ('一班','三班') "

End If

现在选了一个或三个以上,就会出现不想要的结果,怎么样做到选了一个或三个以上CheckBox就会弹出错误提示"只能选两个"

请各位大神帮忙,谢谢!

[此贴子已经被作者于2022/7/10 20:38:59编辑过]

tygzjsl

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

等级：童狐帖子：209 积分：1640 威望：0 精华：0 注册：2018/3/5 10:34:00

Post By：2022/7/10 22:09:00 [显示全部帖子]

非常感谢老师,只是我的表达不是很清楚,CheckBox1-4并不是和一班到四班对应的.

是这样的

If e.Form.Controls("CheckBox1").Checked = True AndAlso e.Form.Controls("CheckBox2").Checked = True Then

Filter = Filter & " and 年级 in ('一班','二班','一班或五班','五班和七班') "

End If

If e.Form.Controls("CheckBox1").Checked = True AndAlso e.Form.Controls("CheckBox3").Checked = True Then

Filter = Filter & " and 年级 in ('一班','三班','五班','六班','全部') "

End If

也就是年级是一列,通过控件CheckBox选择的班级是另一列

辛苦了!

tygzjsl

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

等级：童狐帖子：209 积分：1640 威望：0 精华：0 注册：2018/3/5 10:34:00

Post By：2022/7/10 22:54:00 [显示全部帖子]

我试试看辛苦啦,非常感谢!!!

主题：[求助]有四个CheckBox控件,只能选两个