请问:分班只是以分数和性别分班,能不能以:
分数、性别、生源地(如果太复杂可改为住宿、不住宿)、民族(汉族、少数民族)这四个因素分班。下面代码怎么改呢。
If e.Form.Controls("Number").Value <= 0 Then
MessageBox.Show("分班不能小等于1!","中止操作",MessageBoxButtons.OK,MessageBoxIcon.Exclamation)
Return
End If
DataTables("分班").DataRows.Clear()
Dim f As New Filler
f.SourceTable = DataTables("表A")
f.DataTable = DataTables("分班")
f.Fill
Tables("分班").sort = "总分"
For i As Integer = 0 To Tables("分班").rows.count -1
Tables("分班").Rows(i)("班级") = Format(1 + i Mod e.Form.Controls("Number").Value,"00")
Next
Tables("分班").sort = ""