Dim f As New Filler
f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列
f.Fill() '填充数据
Dim dt = DataTables("统计")
For Each dr As DataRow In dt.Select("")
dr("最高分") = dt.Compute("Max(" & dr("科目") & ")")
dr("最低分") = dt.Compute("Min(" & dr("科目") & ")")
dr("平均分") = dt.Compute("Avg(" & dr("科目") & ")")
Next