Dim b As New GroupTableBuilder("统计表1",DataTables("鲁H75941"))
b.Groups.AddDef("日期","月") \'添加日期列用于分组,并用"月"代替原名称
b.Totals.AddDef("现金运费") \'添加数量列用于统计
b.Totals.AddDef("金额") \'添加金额列用于统计
b.Subtotal = True \'生成汇总模式
B.SubtotalLevel = 0 \'只生成总计行
Tables("鲁H75941_Table1").DataSource = b.BuildDataSource()