Foxtable(狐表) → 用户栏目 → 专家坐堂 → 排名次问题


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

主题：排名次问题
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/10/28 16:36:00 [只看该作者]

测试通过：

 

Dim dr As DataRow = DataTables("表A").Find("","成绩",20)
Tables("表A").Filter = "成绩 < '" & dr("成绩") & "'"
Tables("表A").Sort = "成绩"
Tables("表A").Rows(0)("名次") = 1
For i As Integer = 1 To Tables("表A").Rows.Count - 1
    If  Tables("表A").Rows(i)("成绩")  =     Tables("表A").Rows(i - 1)("成绩")  Then
        Tables("表A").Rows(i)("名次")  =     Tables("表A").Rows(i - 1)("名次")
    Else
        Tables("表A").Rows(i)("名次")  = i+1
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim mc As Integer=1
Dim count As Integer=IIF(Tables("表A").Rows.count-1<8,Tables("表A").Rows.count-1,7)
For i As Integer=0 To count
    If i>0 AndAlso Tables("表A").Rows(i)("成绩") <> Tables("表A").Rows(i-1)("成绩") Then
        mc=mc+1
    End If
    Tables("表A").Rows(i)("名次")=mc
Next
 回到顶部
帅哥哟，离线，有人找我吗？
aygp
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：693 积分：5206 威望：0 精华：0 注册：2011/3/15 12:34:00 		  发帖心情 Post By：2013/10/28 16:57:00 [只看该作者]

测试通过，谢谢二位老师！

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


加好友 发短信
等级：三尾狐 帖子：693 积分：5206 威望：0 精华：0 注册：2011/3/15 12:34:00 		  发帖心情 Post By：2013/10/28 17:05:00 [只看该作者]

现在运动项目为跳高，高度最高的成绩为最好，代码又应该怎样修改？这也是软件的一部分。看附件

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:按高度排序问题.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 回复14楼，如下代码

Dim drs As List(Of DataRow) = DataTables("表A").Select("", "成绩 desc")
drs(0)("名次") = 1
For i As Integer = 1 To drs.Count - 1
    If drs(i)("成绩") = drs(i-1)("成绩") Then
        drs(i)("名次") = drs(i-1)("名次")
    Else
        drs(i)("名次") = i+1
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
aygp
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：693 积分：5206 威望：0 精华：0 注册：2011/3/15 12:34:00 		  发帖心情 Post By：2013/10/28 23:15:00 [只看该作者]

经测试，有点甜老师的代码需要修改为，按名次排序，并只显示前八名，第九行以后的所有行全部过滤掉。达到11楼狐爸的效果。谢谢了！
 回到顶部
总数 16 上一页 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.04688 秒, 5 次数据查询