如不想时时保存表A,又想即时反映变化,这样:
Dim b As New GroupTableBuilder("统计",DataTables("表A"))
b.Groups.AddDef("客户名称") '根据产品分组
b.Totals.AddDef("期初欠款") '对数量进行统计
b.Totals.AddDef("销售总金额","本月销售额") '对数量进行统计
b.Totals.AddDef("已收款","本月回款额") '对数量进行统计
b.Filter ="客户名称 is not null"
b.Build '生成统计表
Dim t As Table = Tables("统计")
t.DataTable.DataCols.add("欠款额",Gettype(Double),"ISNULL([期初欠款],0) + IsNull([本月销售额],0) - ISNULL([本月回款额],0)")
MainTable = t '打开生成的统计表