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


  共有4100人关注过本帖树形打印复制链接

主题：分组问题
帅哥哟，离线，有人找我吗？
a272797388
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1884 威望：0 精华：0 注册：2020/1/23 16:11:00 		分组问题  发帖心情 Post By：2020/10/15 5:53:00 [只看该作者]

表A有109条数据， 想分组成11组， 插入一下组号列， 第一条到第十条组号为“01”， 第十一条到第二十条组号为“02”， 第二十一条到第三十条组号为“03”， 第三十一条到第四十条组号为“04”， 第四十一条到第五十条组号为“05”， 第五十一条到第六十条组号为“06”， 第六十一条到第七十条组号为“07， 第七十一条到第八十条组号为“08”， 第八十一条到第九十条组号为“09”， 第九十一条到第一百条组号为“10”， 第一百零一条到第一百零九条组号为“11”，请问这个代码如何写啊

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113840 积分：579791 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/15 9:19:00 [只看该作者]

Dim t As Table = Tables("表A")
Dim a As Integer = t.rows.count
Dim cn As Integer = 10
Dim b As Integer = Math.Floor(a / cn) * cn
Dim idx As Integer = 1
Output.Show(b)
For i As Integer = 0 To b-1 Step cn
    For j As Integer = 0 To cn - 1
        Output.Show(i+j)
        t.Rows(i+j)("组号") = Format(idx,"00")
    Next
    idx += 1
Next

For i As Integer = b To a - 1
    Output.Show(i)
    t.Rows(i+j)("组号") = Format(idx,"00")
Next
[此贴子已经被作者于2020/10/16 14:25:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
a272797388
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1884 威望：0 精华：0 注册：2020/1/23 16:11:00 		J变量只在前面的那个循环管用啊  发帖心情 Post By：2020/10/16 10:31:00 [只看该作者]

Dim t As Table = Tables("表A")
Dim a As Integer = t.rows.count
Dim b As Integer = a - Math.Floor(a / 10)
Dim idx As Integer = 1
For i As Integer = 0 To b Step 10
    For j As Integer = 0 To 9
        t.Rows(i+j)("组号") = Format(idx,"00")
    Next
    idx += 1
Next

For i As Integer = b+1 To a - 1
    t.Rows(i+j)("组号") = Format(idx,"00")
Next
 
这个代码1到10组能分出来， 11组分不出来啊
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113840 积分：579791 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/16 10:32:00 [只看该作者]

For i As Integer = b+1 To a - 1
    t.Rows(i)("组号") = Format(idx,"00")
Next
 回到顶部
帅哥哟，离线，有人找我吗？
a272797388
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1884 威望：0 精华：0 注册：2020/1/23 16:11:00 		分组末尾这咋处理呢  发帖心情 Post By：2020/10/16 10:57:00 [只看该作者]

就是想把30个人分一个考场， 末尾考场有几个人算几个人
图片点击可在新窗口打开查看此主题相关图片如下：8.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
a272797388
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1884 威望：0 精华：0 注册：2020/1/23 16:11:00 		  发帖心情 Post By：2020/10/16 10:58:00 [只看该作者]

末尾应该都是6才对啊

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113840 积分：579791 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/16 11:10:00 [只看该作者]

idx-=1
For i As Integer = b+1 To a - 1
    t.Rows(i)("组号") = Format(idx,"00")
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询