'学科排序
For Each xuanke As String In xuankes
For Each nd As String() In DataTables("成绩库").GetValues("年级|单位")
Dim tj1 As String = xuanke & "排序"
Dim dr1s As List(Of DataRow) = DataTables("成绩库").Select("[年级] = '" & nd(0) & "' And [单位] = '" & nd(1) & "'And [组合] Like '%" & xuanke & "%'","年级代码,单位代码," & xuanke & "考场号," & xuanke & "座位号")
For n As Integer = 0 To dr1s.Count - 1 '遍历所有行
dr1s(n)(tj1) = n + 1 '排序填充
Next
Next
Next
[此贴子已经被作者于2022/3/25 10:29:11编辑过]