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 Currenttable.sort = "总分" For i As integer = 0 to currenttable.rows.count -1 CurrentTable.Rows(i)("班级") = Format(1 + i mod e.Form.Controls("Number").Value,"00") Next Currenttable.sort = ""
|