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
算不岀排名
加好友 
发短信
Post By：2022/1/8 21:28:00 [显示全部帖子]
此主题相关图片如下：屏幕截图 2022-01-07 173454.png
