tb5.sort="性别,分班成绩 desc"
Dim bjnxs As List(Of String) = tb10.DataTable.GetValues("班级类型")
For Each bjnx As String In bjnxs
Dim bjlist As New List(Of String) = tb10.DataTable.GetValues("班级","班级类型='" & bjnx & "'")
tb5.Filter="班级类型='" & bjnx & "'"
Dim cnt As Integer =tb5.Rows.count
Dim bs As Integer = bjlist.Count
For i As Integer = 0 To cnt - 1 Step bs '8个一组
Dim lst2 As New List(Of String)
lst2.addrange(bjlist)
Dim n As Integer = Math.Min(i + bs-1, cnt - 1)
For j As Integer = i To n
Dim k As Integer = Rand.Next(0, lst2.count)
tb5.Rows(j)("预分班")= lst2(k)
lst2.RemoveAt(k)
Next
Next
Next
tb5.Filter=""
加好友 
发短信
Post By：2022/8/16 11:00:00 [只看该作者]
