主题：[求助]排名问题

Dim bjs As List(Of String) = DataTables("职称评审成绩").GetValues("专业组名称")

For Each bj As String In bjs

    '获得该班级的全部行,按总分降序排序

    Dim drs As List(Of DataRow) = DataTables("职称评审成绩").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

如图：出现以下错误，什么原因？：
此主题相关图片如下：截图03.png