- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 像这样排名什么弄 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174280)
-- 发布时间：2022/1/8 21:28:00
-- 像这样排名什么弄
此主题相关图片如下：屏幕截图 2022-01-07 173454.png
像这样排名什么弄
-- 发布时间：2022/1/8 21:53:00
--
文件都懒得发吗？
-- 发布时间：2022/1/9 14:32:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档 (4).txt |
-- 发布时间：2022/1/9 20:22:00
--
根据ab组对业绩做个分组统计，然后根据统计结果排序后再输出
-- 发布时间：2022/1/9 21:38:00
--
有没有参照
[此贴子已经被作者于2022/1/9 21:37:47编辑过]
-- 发布时间：2022/1/9 21:43:00
--
http://www.foxtable.com/webhelp/topics/3284.htm
-- 发布时间：2022/1/9 23:37:00
--
dt = cmd.ExecuteReader()
\'对临时进行分组统计
Dim b As New GroupTableBuilder("统计表1",dt)
b.Groups.AddDef("身份证姓名") \'根据产品分组
b.Totals.AddDef("提成主销业绩") \'对数量进行统计
\'b.Totals.AddDef("排名") \'对数量进行统计
b.Build \'生成统计表
DataTables("统计表1").DataCols.Add("排名", Gettype(Double))
Dim bjs As List(Of String) = DataTables("统计表1").GetValues("身份证姓名")
For Each bj As String In bjs
\'获得该班级的全部行,按总分降序排序
Dim drs As List(Of DataRow) = DataTables("统计表1").Select("[身份证姓名] = " & bj, "提成主销业绩 DESC")
For n As Integer = 0 To drs.Count - 1 \'遍历所有行
If n > 0 AndAlso drs(n)("提成主销业绩") = drs(n-1)("提成主销业绩") Then \'如果总分和上一行相同
drs(n)("排名") = drs(n-1)("排名") \'则排名等于上一行
Else
drs(n)("排名") = n + 1 \'设置排名
End If
Next
Next
算不岀排名
-- 发布时间：2022/1/10 8:39:00
--
dt = cmd.ExecuteReader()
\'对临时进行分组统计
Dim b As New GroupTableBuilder("统计表1",dt)
b.Groups.AddDef("身份证姓名") \'根据产品分组
b.Totals.AddDef("提成主销业绩") \'对数量进行统计
\'b.Totals.AddDef("排名") \'对数量进行统计
Dim dt2 As DataTable = b.Build(True) \'生成统计表
Dim bjs As List(Of DataRow) = dt2.select("提成主销业绩 DESC")
Dim dr As DataRow
For i As Integer =0 To bjs.count - 1
dr = bjs(i)
msgbox("排名=" & (i+1) & ",提成主销业绩=" & dr("提成主销业绩"))
Next
[此贴子已经被作者于2022/1/10 8:38:59编辑过]
-- 发布时间：2022/1/10 11:43:00
--
网页显示404