For Each dr As DataRow In DataTables("学生成绩统计表").DataRows
dr("语数英_小计")=dr("语文_分数")+dr("数学_分数")+dr("英语_分数")
dr("物化生_小计")=dr("物理_分数")+dr("化学_分数")+dr("生物_分数")
dr("语数英物化生_总分数")=dr("语数英_小计")+dr("物化生_小计")
Next
Dim drs As List(of DataRow) = DataTables("学生成绩统计表").Select("班级 is not null","语文_分数")
For i As Integer = 0 To drs.Count - 1
drs(i)("语文_级名") = i + 1
Next
Dim lst As List(of String ) = DataTables("学生成绩统计表").GetValues("班级","班级 is not null")
For Each s As String In lst
drs = DataTables("学生成绩统计表").Select("班级='" & s & "'","语文_分数")
For i As Integer = 0 To drs.Count - 1
drs(i)("语文_班名") = i + 1
Next
Next
其他类同