下面是帮助“分组统计和交叉统计的实现原理”中的一段代码:
Dim dtb As New
DataTableBuilder("统计")
dtb.AddDef("产品", Gettype(String), 16)
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("统计")
我想把[产品]改成[]和[月],就是临时表为:
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("年", Gettype(Intege))
dtb.AddDef("月", Gettype(Intege))
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
dtb.Build()
再往下该如何写代码?关键是“订单”表没有“年”和“月”列,用year(日期)和month(日期)替代?