- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]排名问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64949)
-- 发布时间：2015/3/5 17:02:00
-- [求助]排名问题
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
此主题相关图片如下：截图03.png-- 发布时间：2015/3/5 17:03:00
--
DataTables("职称评审成绩").Select("[专业组名称] = \'" & bj & "\'", "最终成绩 DESC")
-- 发布时间：2015/3/5 17:04:00
--
你的速度真快
-- 发布时间：2015/3/5 17:12:00
--
好了，但几百个一起排名，最后按排名排序，出现1，1，101，102，2，201，……………，怎么让他按1，2,3,4,5,....9,10,11....这样的顺序排序 ？
-- 发布时间：2015/3/5 17:13:00
--
排名那列，弄成整数列。
-- 发布时间：2015/3/5 17:16:00
--
真的好了，谢谢