主题：请老师帮我修改“学生成绩统计”代码

Dim drs As List(of DataRow) = DataTables("学生成绩统计表").Select("班级 is not null","语文_分数 desc")

For i As Integer = 0 To drs.Count  - 1

    drs(i)("语文_级名") = i + 1

Next

drs = DataTables("学生成绩统计表").Select("班级 is not null","数学_分数 desc")

For i As Integer = 0 To drs.Count  - 1

    drs(i)("数学_级名") = i + 1

Next