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

我测试也没有问题，记得我的代码是直接排序主表的，在主表查看结果：

 

此主题相关图片如下：001.jpg

 

为便于比较，你删除排名列原来的数据看看。

28楼

经过测试,我的代码,以及狐爸的代码都正常运作的啊,就是你发上来的例子.

你有两个排名列，我们计算的是排名，不是面试排名，你不要看错了。

谢谢狐爸和BIN,我找到问题所在了，原来在代码中，“排名”应改为“面试排名”，已正确，谢谢几天来你们的讲解，我会好好努力，下一步我要买一个开发版的，再次谢谢你们的不辞辛劳。

又遇到新问题啦，我想做这样一个标注：当同一个职位代码，总成绩相同时，我想在总成绩上显示红色，提醒该成绩是相同的，怎么写代码，我写了一个，但不行，帮我看看：Dim bjs As List(Of String) = DataTables("笔试成绩").GetUniqueValues("","职位代码")

首先DrawCell执行频繁,不应该执行大量的代码,所以你应该在排序的时候就循环所有行把成绩相同的行标识出来

标识列可以用逻辑型，排名的代码改为：
 
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
        drs(0)("标识") = False
        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
            If drs(i)("总成绩") = drs(i-1)("总成绩")  Then
                drs(i)("标识") = True
                drs(i-1)("标识") = True
            Else
                drs(i)("标识") = False
            End If
        Next
    End If
Next
 
这样标识列等于True，标识存在相同的总分，DrawCell事件设置为：
 
if e.row("标识")= Tru" then
        if e.col.name="总成绩" then
               e.Style = "样式名"
        end if
end if

非常非常感谢