主题：[求助]如何进行多层次排名？

直接在命令窗口执行：

For Each zw As String  In DataTables("笔试成绩").GetValues("职位代码")
    Dim drs As List(of DataRow) = DataTables("笔试成绩").Select("职位代码 = '" & zw & "'","总成绩 DESC, 笔试总成绩 DESC,行测成绩 Desc")
    If drs.count > 0 Then
        drs(0)("排名") = 1
        For i As Integer = 1 To drs.count -1
            If drs(i)("总成绩") < drs(i-1)("总成绩") OrElse drs(i)("笔试总成绩") < drs(i-1)("笔试总成绩") OrElse drs(i)("行测成绩") < drs(i-1)("行测成绩") Then
                drs(i)("排名") = i + 1
            Else
                drs(i)("排名") = drs(i-1)("排名")
            End If
        Next
    End If
Next

这个代码针对主表，如果你要针对窗口中的表，改一下表名就行。