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

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

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

有点蓝

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

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

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

dim str as string

dim i as integer

dim ss() as string = {"一班","二班","三班","四班"}

for j as integer =0 to ss.length - 1

if i>2 then

msgbox("只能选两个")

return

end if

if e.Form.Controls("CheckBox" & (j+1)).Checked then

str = str & ",'" & ss(j) & "'"

i = i + 1

en dif

msgbox(str)

Filter = Filter & " and 班级 in (" & str.trim(",") & ") "

有点蓝

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

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

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

那就想办法把控件的名称和班级对应起来，方便自己的代码处理。如果没有办法对应，只能像上面一样处理了

判断只能选两个参考

dim i as integer

for j as integer =1 to 4

if e.Form.Controls("CheckBox" & (j+1)).Checked then

i = i+1

end if

endif

if i>2 then

msgbox("只能选两个")

return

end if

后续生成条件

[此贴子已经被作者于2022/7/10 23:00:49编辑过]

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