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

不知是哪个数据表格有问题？请指教。谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:高中考试考号条码签打印汇总测试 - 副本.rar

统计结果应为：

此主题相关图片如下：化学考号条码签打印汇总.png

DataTables("成绩库").StopRedraw

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

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

Dim xk1s() As String = {"化学","生物","政治","地理"}

Dim Lms() As String = {"单位","单位代码","年级","科目"}

Dim Lm1s() As String = {"参考人数","考室数","条码打印起止号"}

Dim Lm2s() As String = {"序号起号","序号止号"}

Dim nj As String = 2019

For Each Value As String In Values

For Each xk As String In xks

Dim dtb As New DataTableBuilder(nj & xk &"考室条码汇总" )

For Each Lm As String In Lms

dtb.AddDef(""& Lm &"",Gettype(String),8)

For Each Lm1 As String In Lm1s

dtb.AddDef(""& Lm1 &"",Gettype(String),25)

For Each Lm2 As String In Lm2s

dtb.AddDef(""& Lm2 &"",Gettype(String),12)

dtb.AddDef("备注",Gettype(String),8)

dtb.Build()

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

For Each dm As String In DataTables("成绩库").GetValues("单位代码","单位 = '" & danwei & "'")

Dim dr As DataRow = DataTables(nj & xk &"考室条码汇总").AddNew

dr("单位") = danwei

dr("单位代码") = dm

dr("年级") = nj

dr("科目") = xk

For Each bm As DataTable In DataTables

For Each dr As DataRow In DataTables(bm.name).DataRows

If bm.name <> "成绩库" AndAlso bm.Name <> "校名设置"

dr("参考人数") = DataTables("成绩库").Compute("count(单位)", "[单位] = '" & dr("单位") & "' And [年级] = '" & dr("年级") & "'And [组合] Like '%" & dr("科目") & "%'")

Dim tj1 As String = xk & "排序"

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

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

Dim tj4 As String = xk & "序号"

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

dr("考室数") = DataTables("成绩库").Compute("Max(" & tj2 & ")","[单位] = '" & dr("单位") & "' And [年级] = '" & dr("年级") & "'And [组合] Like '%" & dr("科目") & "%'")

dr("序号起号") = DataTables("成绩库").Compute("Min(" & tj4 & ")", "[单位] = '" & dr("单位") & "' And [年级] = '" & dr("年级") & "'And [组合] Like '%" & dr("科目") & "%'")

dr("序号止号") = DataTables("成绩库").Compute("Max(" & tj4 & ")", "[单位] = '" & dr("单位") & "' And [年级] = '" & dr("年级") & "'And [组合] Like '%" & dr("科目") & "%'")

dr("条码打印起止号") = dr("序号起号") & "-" & dr("序号止号")

End If

Tables(nj & xk &"考室条码汇总").Sort = "单位代码"

DataTables("成绩库").ResumeRedraw

[此贴子已经被作者于2021/7/22 11:33:47编辑过]

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