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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → for next 问题

共有1122人关注过本帖树形打印复制链接主题：for next 问题

Springamy

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

加好友

发短信

等级：一尾狐帖子：427 积分：2969 威望：0 精华：0 注册：2017/4/6 15:51:00

for next 问题 发帖心情

Post By：2017/11/24 11:33:00 [显示全部帖子]

CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox15

需要用for next 循环 CheckBox 1--5 和15, 6到14不能循环

        Dim f As Boolean=False
        For i As Integer= 1 to 15
            f=f Or e.Form.Controls("CheckBox" & i ).checked
        Next

以上错的,请问 For i As Integer= 1 to 15 这里我该怎么写

Springamy

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

加好友

发短信

等级：一尾狐帖子：427 积分：2969 威望：0 精华：0 注册：2017/4/6 15:51:00

Post By：2017/11/24 14:20:00 [显示全部帖子]

Case "CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox15"
Dim n As Integer= CInt( e.Sender.Name.Replace("CheckBox","") )
e.Form.Controls("TabControl1").TabPages( n-1 ).Visible = e.Form.Controls("CheckBox" & n ).checked

case 后面这两句该怎么改呢?试了下还是不会

Dim cn() As String = {"CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox15"}

Dim n As Integer = cint(e.Sender.Name.Replace(cn( ? )))

图片点击可在新窗口打开查看此主题相关图片如下：1.png

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

主题：for next 问题