Dim dt As dataTable = dataTables("学生成绩")
Dim drs As List(Of DataRow) = dt.Select("", "总分 desc")
Dim pzf As Double = 0
For i As Integer = 0 To drs.Count - 1
If drs(i)("总分") <> pzf Then
drs(i)("年名") = i + 1
pzf = drs(i)("总分")
Else
drs(i)("年名") = drs(i-1)("年名")
End If
Next
drs = dt.Select("", "班级, 总分 desc")
pzf = 0
Dim pbj As String = ""
Dim pmc As Integer = 1
For i As Integer = 0 To drs.Count - 1
If drs(i)("班级") <> pbj Then
pbj = drs(i)("班级")
pmc = 1
End If
If drs(i)("总分") <> pzf Then
drs(i)("班名") = pmc
pmc += 1
pzf = drs(i)("总分")
Else
drs(i)("班名") = pmc
End If
Next