Dim g2 As New GroupTableBuilder("累计统计", DataTables("业务表")) '客户查询 为Click按钮名称
g2.Filter = "日期>=#" & d3 & "# and 日期<=#" & d2 & "# and [完工] = True "
g2.Groups.AddDef("员工姓名")
g2.Groups.AddDef("客户名称")
g2.Totals.AddDef("发货数量", "本年累计_发货数量")
g2.Totals.AddDef("开piao数量", "本年累计_开piao数量")
g2.Totals.AddDef("开piao金额", "本年累计_开piao金额")
g2.Totals.AddDef("收款金额", "本年累计_收款金额")
g2.VerticalTotal = True
g2.SubTotal = True
g2.Decimals = 2
g2.FromServer = True
Tables("业务管理_统计表").DataSource = g2.BuildDataSource()
e.Form.Controls("统计表").Visible = True