手机端增加排序列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档 (4).txt

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

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

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

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

……

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

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>")

主题：手机端增加排序列