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

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

共有1094人关注过本帖树形打印复制链接主题：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 这里我该怎么写

有点蓝

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

加好友

发短信

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

Post By：2017/11/24 12:12:00 [只看该作者]

dim str() as string = {"CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox15"}

Dim f As Boolean=False
        For i As Integer= 0 to str.length - 1
            f=f Or e.Form.Controls(str(i) ).checked
        Next

Springamy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/24 15:39:00 [只看该作者]

没看懂你想干什么

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

For each c as String in cn
Dim n As Integer = cint(c.Replace("CheckBox", ""))

msgbox(n)

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

主题：for next 问题