Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何进行多层次排名？


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

主题：[求助]如何进行多层次排名？
帅哥哟，离线，有人找我吗？
Bin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/11 9:42:00 [显示全部帖子]

CurrentTable.Filter=""
CurrentTable.Sort="第一列,第三列"

Dim bjs As List(Of String) = Tables("面试成绩_笔试").DataTable.GetUniqueValues("","职位代码")
For Each bj As String In bjs
    '获得该职位代码的全部行,按总分降序排序
    Dim drs As List(Of DataRow) = Tables("面试成绩_笔试").DataTable.Select("[职位代码] = " & bj, "总成绩 DESC")
    For n As Integer = 0 To drs.Count - 1 '遍历所有行
        If n > 0 AndAlso drs(n)("总成绩") = drs(n-1)("总成绩") Then '如果总分和上一行相同
            If drs(n)("笔试成绩") = drs(n-1)("笔试成绩") Then
                If drs(n)("行测成绩") = drs(n-1)("行测成绩") Then
                    drs(n)("面试排名") = drs(n-1)("面试排名") '则排名等于上一行
                Else If drs(n)("行测成绩") > drs(n-1)("行测成绩") Then
                    drs(n)("面试排名")=n+2
                    drs(n-1)("面试排名") = n + 1
                Else
                    drs(n)("面试排名") = n + 1 '设置排名
                End If
            Else If drs(n)("笔试成绩") > drs(n-1)("笔试成绩") Then
                drs(n)("面试排名")=n+2
                drs(n-1)("面试排名") = n + 1
            Else
                drs(n)("面试排名") = n + 1 '设置排名
            End If
        Else
            drs(n)("面试排名") = n + 1 '设置排名
        End If
    Next
Next

大概是这样,没有例子没办法测试,不能保证正确性.
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/11 9:58:00 [显示全部帖子]

CurrentTable.Filter=""
CurrentTable.Sort="第一列,第三列"

第一第二行代码是误发,自行去掉.

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/11 9:58:00 [显示全部帖子]

CurrentTable.Filter=""
CurrentTable.Sort="第一列,第三列"

第一第二行代码是误发,自行去掉.
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/11 11:56:00 [显示全部帖子]

.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:面试登分系统.table
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/11 12:04:00 [显示全部帖子]

狐表这个比我10楼的例子简洁一点,但是执行好像不太正确.

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/11 12:09:00 [显示全部帖子]

.
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20131111120905.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/11 14:01:00 [显示全部帖子]

只有最新版本才有 GetValues.

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/11 14:05:00 [显示全部帖子]

请更新最新版本即可.

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/11 14:14:00 [显示全部帖子]

到期了的话找官方购买升级.

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/11 17:02:00 [显示全部帖子]

把你使用的数据发上来看看.用你例子的数据测试没问题的呢.

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