Dim kds As List(Of String) = DataTables("中考表").sqlGetValues("kdxxdm","ksmc='18春生地中考'") '取不同考点
For Each kd As String In kds '循环不同考点
Dim kddr As List(of DataRow)= DataTables("中考表").Select("kdxxdm = '" & kd & "'") '取考点人数集合
Dim kdrs As Integer = kddr.Count '取考点人数kdrs
Dim kcs As Integer
If kdrs Mod 30 > 15
kcs = Math.Ceiling(kdrs/30)
Else
kcs = math.Floor(kdrs/30)
End If '取该考点的考试室个数
For i As Integer = 1 To kcs '循环考点的考试室,每个考试室随机安排30人尾考试室不一定为30
每个考点的每个考试室随机排30号，1802+考试室（3位）各考点拉通，从001至最后，+考号01-30
Next
Next
看了弄不清楚，请老师帮讲一下，谢谢
加好友 
发短信
Post By：2018/4/21 17:37:00 [只看该作者]
