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

如下图：
此主题相关图片如下：面试排名.png

1、相同职位代码的总成绩，进行面试排名；

2、如果总成绩相同，则看相同职位下的笔试成绩，笔试成绩大的排名在前；

3、如果笔试成绩也相同，则看相同职位代码下的行测成绩，行测成绩大的排名在前，如果行测成绩也相同，则排名相同

下边代码如何修改：

'获得所有职位代码,保存在集合中

Dim bjs As List(Of String) = Tables("面试成绩_笔试").DataTable.GetUniqueValues("","职位代码")

For Each bj As String In bjs

    '获得该职位代码的全部行,按总分降序排序

    Dim drs As List(Of DataRow) = Tables("面试成绩_笔试").DataTable.Select("[职位代码] = " & bj, "总成绩 DESC")

    For n As Integer = 0 To drs.Count - 1 '遍历所有行

        If n > 0 AndAlso drs(n)("总成绩") = drs(n-1)("总成绩") Then '如果总分和上一行相同

            drs(n)("面试排名") = drs(n-1)("面试排名") '则排名等于上一行

        Else

            drs(n)("面试排名") = n + 1 '设置排名

        End If

    Next

Next

谢谢，我试着做一下，

CurrentTable.Filter="" CurrentTable.Sort="第一列,第三列" 这段代码是什么意思，需要将第一列、第三列改为标题名吗

谢谢

可以解决吗，BIN

你好，你发来的版本太高了， 我打不开，能否将代码贴出来，谢谢

出现这个对话框，怎么办？
此主题相关图片如下：不是成员.png

哪有没有可以替代的

一更新后，可能日期到了，就打不开了，有什么办法吗