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
如图:出现以下错误,什么原因?:
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:截图03.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-3/2015351722466293.png)