Dim pm As List(Of String()) = CurrentTable.DataTable.GetUniqueValues("","年级","班级")
Dim pmc As Integer
Dim ColNames() As String = {"分数","语文"}
Dim TotalName As String
CurrentTable.Redraw = False
For Each ColName As string In ColNames
    For i As Integer = 0 To pm.Count -1
        If pm(i)(0) = "" Then
            Continue for
        End If
        Dim drs As List(Of DataRow) = Currenttable.DataTable.Select("[年级] = \'" & pm(i)(0) & "\'And [班级] = " & pm(i)(1), ColName & " DESC")
        pmc = 0
        TotalName = ColName & "班级排名"
        For n As integer = 0 To drs.Count - 1
            pmc = pmc +1
            If n > 0 AndAlso drs(n)(ColName ) = drs(n-1)(ColName) Then
                drs(n)(TotalName ) = drs(n-1)(TotalName )
            Else
                drs(n)(TotalName ) = pmc
            End If
        Next
    Next
Next

CurrentTable.Redraw = True