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

DataTables("成绩库").StopRedraw

Dim xuankes() As String = {"化","生","政","地"}

Dim Values() As String = {"考号"}

For Each Value As String In Values

Tables("成绩库").Cols(Value & "排序").Visible = True

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 & "")

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

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

drs(n)("考场号") = Math.Ceiling(drs(n)(tj)/40)

drs(n)("座位号") = drs(n)(tj) - (drs(n)("考场号") - 1)*40

if 考场号 = 考场号的最大值 and 座位号 <= 5 True

drs(n)("考场号") = drs(n)("考场号") + 1

drs(n)("座位号") = 40 + drs(n)(tj) - (drs(n)("考场号") - 1)*40

end if

Dim tj1 As String = xuanke & "排序"

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

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

Dim tj4 As String = xuanke & "序号"

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

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

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

dr1(n)(tj1) = n + 1 '设置排序

dr1(n)(tj2) = Math.Ceiling(dr1(n)(tj1)/40)

dr1(n)(tj3) = dr1(n)(tj1) - (dr1(n)(tj2) - 1)*40

Tables("成绩库").Sort = "单位代码,年级代码,组合代码,考号排序"

'Dim dr2 As List(Of DataRow) = DataTables("成绩库").Select("[年级] = '" & nianji & "'And [组合] Like '%" & xuanke & "%'","" & value & "")

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

'dr2(n)(tj4) = n + 1 '设置排序

'Next

'Dim dr1s As List(Of DataRow) = DataTables("成绩库").Select("[年级] = '" & nianji & "'")

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

'dr1s(n)(tj5) = n + 1 '设置排序

'Next

DataTables("成绩库").ResumeRedraw

e.Form.Controls("Label1").text ="考号核对结束,可以进行下一步操作!"

DataTables("成绩库").ResumeRedraw

红色字体代码如何修改？请指教。谢谢！

此主题相关图片如下：尾考室.png

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