[求助]尾考室不大于5人，则加到上一考室，如何处理？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

考场号的最大值可以在一开始就使用compute查出来
至于座位号 <= 5这个看不出来，请上传实例测试

使用文字说明一下排位规则

试试

……

Tables("成绩库").Sort = "姓名"

For Each Value As String In Values

For Each xuanke As String In xuankes

For Each danwei As String In DataTables("成绩库").GetValues("单位", " ")

For Each nianji As String In DataTables("成绩库").GetValues("年级","单位 = '" & danwei & "'" )

For Each zuhe As String In DataTables("成绩库").GetValues("组合","年级 = '" & nianji & "'" )

Dim tj As String = value & "排序"

'Dim tj5 As String = "序号"

Dim drs As List(Of DataRow) = DataTables("成绩库").Select("[年级] = '" & nianji & "'And [单位] = '" & danwei & "'", "" & value & "")

Dim idx As Integer = 1

For n As Integer = 0 To drs.Count - 1 Step 40 '遍历所有行

Dim idx2 As Integer = 1

For k As Integer = n To math.min(n+39,drs.Count - 1)

drs(k)(tj) = k + 1 '设置排序

drs(k)("考场号") = idx

drs(k)("座位号") = idx2

idx2 += 1

If n+44 >= drs.Count - 1 Then

For k As Integer = n+40 To drs.Count - 1

drs(k)(tj) = k + 1 '设置排序

drs(k)("考场号") = idx

drs(k)("座位号") = idx2

idx2 += 1

exit for

End If

idx + =1

Dim tj1 As String = xuanke & "排序"

Dim tj2 As String = xuanke & "考场号"

Dim tj3 As String = xuanke & "座位号"

……

组合这个列是干嘛用的

组合和排位有什么关系？

那就把这个循环去掉

For Each zuhe As String In DataTables("成绩库").GetValues("组合","年级 = '" & nianji & "'" )

下面这个循环是干嘛用的？如果和排位没有关系也去掉

For Each xuanke As String In xuankes

这段代码和排位又有什么关系？如果是不同的功能，就分开，分别循环处理，不要混到一起

新行的代码是这个：Dim dr As DataRow = DataTables("成绩库").AddNew

自己排查代码，是否需要每个单位的每个年级的每个xuankes都新增一行？新增的行数=单位数 X 单位年级数 X xuankes长度

For Each Value As String In Values

For Each danwei As String In DataTables("成绩库").GetValues("单位", " ")

For Each nianji As String In DataTables("成绩库").GetValues("年级","单位 = '" & danwei & "'" )

……

For Each xuanke As String In xuankes

Dim tj1 As String = xuanke & "排序"

Dim tj2 As String = xuanke & "考场号"

Dim tj3 As String = xuanke & "座位号"

Dim dr As DataRow = DataTables("成绩库").AddNew

代码没有问题，前提是考场号已经全部生成了

主题：[求助]尾考室不大于5人，则加到上一考室，如何处理？