前面的统计,都使用了Filler来向统计表填充分组数据,实际上有时手工编码填充分组数据也是一个不错的选择。
还是以统计不同产品的销售数量和金额为例,如果手工编码填充分组数据,代码为:
Dim dtb As New
DataTableBuilder("统计")
dtb.AddDef("产品", Gettype(String), 32)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
dtb.Build()
For Each nm As String In DataTables("订单").GetValues("产品")
Dim dr As
DataRow = DataTables("统计").AddNew()
dr("产品") = nm
dr("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = '" & dr("产品") & "'")
dr("金额") = DataTables("订单").Compute("Sum(金额)","[产品] =
'" & dr("产品") & "'")
Next
MainTable= Tables("统计")
代码是不是比示例四简洁很多呢?
这个代码如何排除重复数据?
If
Maintable.Name = "销售统计"
Then
dim f As New Filler
DataTables("销售统计").DataRows.Clear() '清除原有数据
f.SourceTable = DataTables("订单")
f.SourceCols = "产品"
f.DataTable = DataTables("销售统计")
f.DataCols = "产品"
f.Fill()
End
If
这个代码不能排序
如何既有排序又排除重复填充?