Foxtable(狐表)用户栏目专家坐堂 → 手机端增加排序列


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

主题:手机端增加排序列

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


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
手机端增加排序列  发帖心情 Post By:2018/10/16 20:27:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档 (4).txt




 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/16 20:56:00 [只看该作者]

.CreateFromDataTable(g.Build(True),"","","折总平均")


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


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2018/10/16 21:06:00 [只看该作者]

老师,我不是这个意思,是要将g.build 的表中按折总平均排序

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


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2018/10/16 21:09:00 [只看该作者]

dt1.DataSource = g.BuildDataSource()
dt1.DataTable.DataCols.Add("折总班序",Gettype(Integer))
dt1.DataTable.DataCols.Add("总分班序",Gettype(Integer))
Dim Arys1 As List(Of String())  = dt1.DataTable.GetValues("考试名称|单位名称|年级")
For Each Ary1 As String() In Arys1
    Dim drs As List(Of DataRow) = dt1.DataTable.Select("[考试名称] = '" & ary1(0) & "'and [年级] ='" & ary1(2) & "'", "折总平均 DESC")
    For m As Integer = 0 To drs.Count - 1 '遍历所有行
        If m > 0 AndAlso drs(m)("折总平均") = drs(m-1)("折总平均") Then '如果总分和上一行相同
            drs(m)("折总班序") = drs(m-1)("折总班序") '则排名等于上一行
        Else
            drs(m)("折总班序") = m + 1 '设置排名
        End If
    Next
Next


我在电脑端做的是绑在了窗口表dt1排序的,但手机上我不晓得这个怎么改

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/16 21:25:00 [只看该作者]

……
g.Totals.Addexp("折总分段_350以下", "Case When 折总<= 350 Then 1 Else 0 End")
g.FromServer = True
Dim dt As DataTable = g.Build(True)
dt.DataCols.Add("折总班序",Gettype(Integer))
dt.DataCols.Add("总分班序",Gettype(Integer))
Dim Arys1 As List(Of String())  = dt.GetValues("考试名称|单位名称|年级")
For Each Ary1 As String() In Arys1
    Dim drs As List(Of DataRow) = dt.Select("[考试名称] = '" & ary1(0) & "'and [年级] ='" & ary1(2) & "'", "折总平均 DESC")
    For m As Integer = 0 To drs.Count - 1 '遍历所有行
        If m > 0 AndAlso drs(m)("折总平均") = drs(m-1)("折总平均") Then '如果总分和上一行相同
            drs(m)("折总班序") = drs(m-1)("折总班序") '则排名等于上一行
        Else
            drs(m)("折总班序") = m + 1 '设置排名
        End If
    Next
Next
wb.InsertHTML("<div style='width:100%; overflow-x:auto;'>")
            With wb.AddTable("","Table1")
                .attribute ="style = 'border:1px solid black;text-align:center;white-space:nowrap;font-size:12px;padding:1px;'"
                .CreateFromDataTable(dt)
            End With
            wb.AppendHTML("<style>.fox_table th{border: 1px solid black} .fox_table td{border: 1px solid black}</style>")

 回到顶部