主题：[求助]统计表中能否自动生成一列进行排名（已解决）

 Case "当月汇总"
 
 '先进行当月日汇总
                Dim b As New GroupTableBuilder("当月日汇总",DataTables("日报源表"))
                b.Groups.AddDef("报表年月") '根据报表年月列用于分组
                b.Groups.AddDef("日期", DateGroupEnum.None) '添加日期列用于分组
                b.Groups.AddDef("单位") '根据单位分组
                b.Totals.AddDef("加工费") '添加加工费列用于统计
                b.Totals.AddDef("投工","全员人数") '添加投工列用于统计
               ' b.Totals.AddDef("名次")
                b.Build '生成按日汇总表
                Dim t As Table = Tables("当月日汇总")
                t.DataTable.DataCols.Add("全员人均", Gettype(Double),"iif(全员人数=0,null,加工费/全员人数)")
                MainTable = t '打开生成的按日汇总表
                t.Position = t.Rows.Count - 1
                DataTables("当月日汇总").DataCols("加工费").SetFormat("0.00")
                DataTables("当月日汇总").DataCols("全员人均").SetFormat("0.00")
                
                '然后在当月日汇总的基础上进行当月汇总
                Dim d As New GroupTableBuilder("当月汇总",DataTables("当月日汇总"))
                d.Groups.AddDef("报表年月") '根据报表年月列用于分组
                d.Groups.AddDef("单位") '根据单位列用于分组
                d.Totals.AddDef("加工费") '添加加工费列用于统计
                d.Totals.AddDef("全员人数") '添加投工列用于统计
                d.Totals.AddDef("全员人数",AggregateEnum.Average,"月均人数") '添加月均人数列用于统计
                d.Build '生成按月汇总表
                Dim r As Table = Tables("当月汇总")
                r.DataTable.DataCols.Add("日人均加工费", Gettype(Double),"iif(全员人数=0,null,加工费/全员人数)")
                r.DataTable.DataCols.Add("月人均加工费", Gettype(Double),"iif(月均人数=0,null,加工费/月均人数)")
                MainTable = r '打开生成的按月汇总表
                r.Position = r.Rows.Count - 1
                DataTables("当月汇总").DataCols("加工费").SetFormat("0.00")
                DataTables("当月汇总").DataCols("月均人数").SetFormat("0.00")
                DataTables("当月汇总").DataCols("日人均加工费").SetFormat("0.00")
                DataTables("当月汇总").DataCols("月人均加工费").SetFormat("0.00")

                 DataTables("当月汇总").DataCols.Add("名次", Gettype(Byte))
               
                              
                               
                '根据代码生成的汇总表进行排名
                '获得报表年月数据,保存在集合中
                Dim bjs As List(Of String) = DataTables("当月汇总").GetUniqueValues("","报表年月")
                For Each bj As String In bjs
                    '获得该报表年月的全部行,按总分降序排序
                    Dim drs As List(Of DataRow) = DataTables("当月汇总").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
                   Tables("当月汇总").Sort = "名次 "