[求助]如何进行多层次排名？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有8753人关注过本帖树形打印复制链接主题：[求助]如何进行多层次排名？

hrw68529

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2013/11/11 14:11:00 [只看该作者]

一更新后，可能日期到了，就打不开了，有什么办法吗

Bin

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/11/11 14:14:00 [只看该作者]

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

hrw68529

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2013/11/11 14:43:00 [只看该作者]

bin,软件已升级，但你发给我的进行排名后，看图表排序不对，怎么纠正，谢谢。如图：
图片点击可在新窗口打开查看

此主题相关图片如下：小意外.png

狐狸爸爸

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251397 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/11/11 16:03:00 [只看该作者]

用我15楼的代码

hrw68529

小大 25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2013/11/11 17:00:00 [只看该作者]

狐狸老爸，用你的代码，也出现这个问题，请给予帮助解决。如图：
图片点击可在新窗口打开查看

此主题相关图片如下：大意外.png

Bin

小大 26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/11/11 17:02:00 [只看该作者]

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

hrw68529

小大 27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00

Post By：2013/11/12 7:49:00 [只看该作者]

好，软件发给你：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:公员面试登分系统.rar

狐狸爸爸

小大 28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251397 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/11/12 8:30:00 [只看该作者]

我测试没事，不过为了可靠，四舍五入后比较：

For Each zw As String In DataTables("笔试成绩").GetValues("职位代码")
    Dim drs As List(of DataRow) = DataTables("笔试成绩").Select("职位代码 = '" & zw & "'","总成绩 DESC, 笔试总成绩 DESC,行测成绩 Desc")
    If drs.count > 0 Then
        drs(0)("排名") = 1
        For i As Integer = 1 To drs.count -1
            If round2(drs(i)("总成绩"),3) < round2(drs(i-1)("总成绩"),3) OrElse round2(drs(i)("笔试总成绩"),3) < round2(drs(i-1)("笔试总成绩"),3) OrElse round2(drs(i)("行测成绩"),3) < round2(drs(i-1)("行测成绩"),3) Then
                drs(i)("排名") = i +1
            Else
                drs(i)("排名") = drs(i-1)("排名")
            End If
        Next
    End If
Next