Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何分类全表和表中部分数据排序


  共有3086人关注过本帖树形打印复制链接

主题：如何分类全表和表中部分数据排序
美女呀，离线，留言给我吧！
zjy1088
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：137 威望：0 精华：0 注册：2014/11/19 9:14:00 		如何分类全表和表中部分数据排序  发帖心情 Post By：2014/11/19 9:41:00 [只看该作者]

小白请教专家：

想对“学生成绩”进行年级和班级的排名，但在同一个表中，不知如何实现。

另：排名能出现重复名次。如：有两个5名，接下来应该排出的是第7名。



图片点击可在新窗口打开查看感谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/11/19 9:51:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/19 9:56:00 [只看该作者]

Dim dt As dataTable = dataTables("学生成绩")
Dim drs As List(Of DataRow) = dt.Select("", "总分 desc")
Dim pzf As Double = 0
For i As Integer = 0 To drs.Count - 1
    If drs(i)("总分") <> pzf Then
        drs(i)("年名") = i + 1
        pzf = drs(i)("总分")
    Else
        drs(i)("年名") = drs(i-1)("年名")
    End If
Next

drs = dt.Select("", "班级, 总分 desc")
pzf = 0
Dim pbj As String = ""
Dim pmc As Integer = 1
For i As Integer = 0 To drs.Count - 1
    If drs(i)("班级") <> pbj Then
        pbj = drs(i)("班级")
        pmc = 1
    End If
    If drs(i)("总分") <> pzf Then
        drs(i)("班名") = pmc
        pmc += 1
        pzf = drs(i)("总分")
    Else
        drs(i)("班名") = pmc
    End If
Next
 回到顶部
美女呀，离线，留言给我吧！
zjy1088
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：137 威望：0 精华：0 注册：2014/11/19 9:14:00 		  发帖心情 Post By：2014/11/19 15:37:00 [只看该作者]

还是搞不懂啊，应该在哪个事件中添加这段代码呢？我试的都没用啊，排序都没出来
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/19 15:39:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/11/19 15:40:00 [只看该作者]

不会没出来  可以参考CaseStudy目录下的文件： 成绩排名.Table

 回到顶部
美女呀，离线，留言给我吧！
zjy1088
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：137 威望：0 精华：0 注册：2014/11/19 9:14:00 		  发帖心情 Post By：2014/11/19 17:37:00 [只看该作者]

感谢！

排名能进行了，“年名”排名是准确的，可“班名”排名不对，比如c1201班的2个第7名成绩是不一样的。还有，排名之后，如果点“年名”进行升序排序，就乱了套了，求解！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/19 17:42:00 [只看该作者]

Dim dt As dataTable = dataTables("学生成绩")
Dim drs As List(Of DataRow) = dt.Select("", "总分 desc")
Dim pzf As Double = 0
For i As Integer = 0 To drs.Count - 1
    If drs(i)("总分") <> pzf Then
        drs(i)("年名") = i + 1
        pzf = drs(i)("总分")
    Else
        drs(i)("年名") = drs(i-1)("年名")
    End If
Next

drs = dt.Select("", "班级, 总分 desc")
Dim pbj As String = ""
Dim pmc As Integer = 1
For i As Integer = 0 To drs.Count - 1
    If drs(i)("班级") <> pbj Then
        pbj = drs(i)("班级")
        pmc = 1
        pzf = 0
    End If
    If drs(i)("总分") <> pzf Then
        drs(i)("班名") = pmc
        pzf = drs(i)("总分")
    Else
        drs(i)("班名") = drs(i-1)("班名")
    End If
    pmc += 1
Next
 回到顶部
美女呀，离线，留言给我吧！
zjy1088
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：137 威望：0 精华：0 注册：2014/11/19 9:14:00 		  发帖心情 Post By：2014/11/19 18:51:00 [只看该作者]

问题解决！小白特别感谢甜点！图片点击可在新窗口打开查看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询