- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 分组问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157407)
-- 发布时间：2020/10/15 5:53:00
-- 分组问题
表A有109条数据， 想分组成11组， 插入一下组号列， 第一条到第十条组号为“01”， 第十一条到第二十条组号为“02”， 第二十一条到第三十条组号为“03”， 第三十一条到第四十条组号为“04”， 第四十一条到第五十条组号为“05”， 第五十一条到第六十条组号为“06”， 第六十一条到第七十条组号为“07， 第七十一条到第八十条组号为“08”， 第八十一条到第九十条组号为“09”， 第九十一条到第一百条组号为“10”， 第一百零一条到第一百零九条组号为“11”，请问这个代码如何写啊
-- 发布时间：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编辑过]
-- 发布时间：2020/10/16 10:31:00
-- J变量只在前面的那个循环管用啊
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组分不出来啊
-- 发布时间：2020/10/16 10:32:00
--
For i As Integer = b+1 To a - 1
t.Rows(i)("组号") = Format(idx,"00")
Next
-- 发布时间：2020/10/16 10:57:00
-- 分组末尾这咋处理呢
就是想把30个人分一个考场， 末尾考场有几个人算几个人
此主题相关图片如下：8.jpg
-- 发布时间：2020/10/16 10:58:00
--
末尾应该都是6才对啊
-- 发布时间：2020/10/16 11:10:00
--
idx-=1
For i As Integer = b+1 To a - 1
t.Rows(i)("组号") = Format(idx,"00")
Next