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