以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]顺序号的生成  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67567)

--  作者:黄训良
--  发布时间:2015/4/26 20:15:00
--  [求助]顺序号的生成

请教:首先按总分排序,如果总分相同的学生,再按英语的高低排序,并生成顺序号(不重复)

比如:

姓名     总分   英语    顺序号

张三    650    90         1

李四    650    88         2

王五    600    99         3

陈六    600    92         4

[此贴子已经被作者于2015/4/26 20:51:16编辑过]

--  作者:游
--  发布时间:2015/4/26 20:34:00
--  
用 Row的 Index + 1

排序后刷新

--  作者:黄训良
--  发布时间:2015/4/26 20:51:00
--  
楼上看仔细了,是两个排序
--  作者:游
--  发布时间:2015/4/26 20:54:00
--  
兄弟,十个排序都没关系啊!

排完序后,遍历填充就可以了啊

--  作者:游
--  发布时间:2015/4/26 21:11:00
--  
可能这样写,你会觉得高雅一点,其实都一样

Dim drs As List(Of DataRow) = DataTables("表名").Select("","总分,英语")

For i As Integer = 0 To drs.count -1
    drs(i)("排名") = i+1
Next

--  作者:黄训良
--  发布时间:2015/4/26 21:50:00
--  
谢谢,十分感谢!