主题：请教高手排列名次问题？

我是不是可以理解为 按 报考职位代码,总成绩(降序),专业成绩(降序) 排序  ,然后按岗位数X3标示 ?

Tables("成绩表").Sort= "报考职位代码,总成绩 DESC,专业成绩 DESC"
DataTables("成绩表").Save
Dim bjs As List(Of String) = DataTables("成绩表").GetUniqueValues("","报考职位代码")
For Each bj As String In bjs
    '获得该班级的全部行,按总分降序排序
    Dim drs As List(Of DataRow) = DataTables("成绩表").Select("[报考职位代码] = " & bj,"报考职位代码,总成绩 DESC,专业成绩 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
           If N=0 Then
             drs(n)("总成绩名次") = 1
            Else
            drs(n)("总成绩名次") = drs(n-1)("总成绩名次")+1   '设置排名
            End If
        End If

        If  drs(n)("总成绩名次")<  drs(n)("招聘岗位数")*3  And  drs(n)("专业成绩")>-1 And  drs(n)("公共成绩")>-1  Then
            drs(n)("面试标示")="进入面试"
        Else
            drs(n)("面试标示")=""
        End If
       
    Next
Next