总数是看明白了,个数没看明白.可以学习一下帮助里开发篇的统计章节
手工编码进行统计
'生成统计表
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("产品", GetType(String), 32)
dtb.AddDef("数量", GetType(Integer))
dtb.AddDef("金额", GetType(Double))
dtb.Build()
'填充数据
dim f As New Filler
f.SourceTable = DataTables("订单")
f.SourceCols = "产品"
f.DataTable = DataTables("统计")
f.DataCols = "产品"
f.Fill()
'统计
For Each dr As Datarow In DataTables("统计").DataRows
dr("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = '" & dr("产品") & "'")
dr("金额") = DataTables("订单").Compute("Sum(金额)","[产品] = '" & dr("产品") & "'")
Next
MainTable= Tables("统计")
当然,上面的代码如果改用GroupTableBuilder来实现。要容易很多。
之所以提供这样的例子,是为了让你知道,其实你有更多的选择,这样面对一些复杂的统计要求,你也能应付自如。
[此贴子已经被作者于2009-1-23 17:06:17编辑过]