主题：排序问题

Tables("表A").Sort = "年级,班级,语文班级排名"

一次性对多个排名列进行排序估计不行吧。

序号写入哪个列中？

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