主题：考核排序问题

有八个管理部门年终要进行绩效考核，并根据综合得分进行排序，要求通过按键自动排出名次,请问按键代码

无语，之前做过，这么简单你还不会。你压根就没学过。

Tables("表A").Sort = "综合得分 desc"
Dim ps As Double = 0
For i As Integer = 0 To Tables("表A").Rows.count - 1
    Dim r As Row = Tables("表A").Rows(i)
    If r("综合得分") <> ps Then
        r("考核排序") = i + 1
        ps = r("综合得分")
    Else
        r("考核排序") = i
    End If
Next

甜老师：代码学习还是有点难度，我也在努力学习，也请老师多帮助。