Foxtable(狐表)用户栏目专家坐堂 → 仿照排名例子,增加条件后排名结果错误


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

主题:仿照排名例子,增加条件后排名结果错误

帅哥哟,离线,有人找我吗?
zsxx999
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:798 积分:9630 威望:0 精华:0 注册:2011/4/20 14:23:00
仿照排名例子,增加条件后排名结果错误  发帖心情 Post By:2019/10/18 22:51:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/18 23:06:00 [只看该作者]

Dim bjs As List(Of String()) = DataTables("教师业绩表").GetValues("年级|学科|班级")

For Each bj As String() In bjs

    '获得该班级的全部行,按总分降序排序

    Dim drs As List(Of DataRow) = DataTables("教师业绩表").Select("[学科] = '" & bj(1) & "'  and  [年级] = '" &  bj(0)  & "' And [班级] = '" & bj(2) & "'", "平均 DESC")

    For n As Integer = 0 To drs.Count - 1 '遍历所有行

        If n > 0 AndAlso drs(n)("平均") = drs(n-1)("平均"Then '如果总分和上一行相同

            drs(n)("mcdx") = drs(n-1)("mcdx"'则排名等于上一行

        Else

            drs(n)("mcdx") = n + 1 '设置排名

        End If

    Next

Next


 回到顶部