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

直接在命令窗口执行：

 

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

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

呵呵，从代码逻辑来说，没有道理会不正确啊

这样就对了，忘记加1：

 

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

用我15楼的代码

我测试没事，不过为了可靠，四舍五入后比较：

 

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 round2(drs(i)("总成绩"),3) < round2(drs(i-1)("总成绩"),3) OrElse round2(drs(i)("笔试总成绩"),3) < round2(drs(i-1)("笔试总成绩"),3) OrElse round2(drs(i)("行测成绩"),3) < round2(drs(i-1)("行测成绩"),3) Then
                drs(i)("排名") = i +1
            Else
                drs(i)("排名") = drs(i-1)("排名")
            End If
        Next
    End If
Next

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

 

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

 

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

28楼

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

标识列可以用逻辑型，排名的代码改为：
 
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