- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 手机端增加排序列 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126221)
-- 发布时间：2018/10/16 20:27:00
-- 手机端增加排序列
-- 发布时间：2018/10/16 20:56:00
--
.CreateFromDataTable(g.Build(True),"","","折总平均")
-- 发布时间：2018/10/16 21:06:00
--
老师，我不是这个意思，是要将g.build 的表中按折总平均排序
-- 发布时间：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排序的，但手机上我不晓得这个怎么改
-- 发布时间：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>")