Dim b As New SQLCrossTableBuilder("回款统计","回款明细")
b.C
b.AddTable("回款明细","合同编号","合同档案","合同编号") '添加统计表
b.HGroups.AddDef("签约时间",DateGroupEnum.Year,"年") '添加日期列用于垂直分组,按年分组
b.VGroups.AddDef("分公司","分公司") '添加分公司列用于水平分组
b.Totals.AddDef("回款金额") '添加金额列用于统计
b.Subtotal = True '生成汇总模式
'b.Filter="分公司=&'"User.name"'"
b.Build '生成统计表
MainTable = Tables("回款统计") '打开生成的统计表