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("回款统计") \'打开生成的统计表