Dim bg1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim bg2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim dtb As New GroupTableBuilder("统计",DataTables("订单明细"),"订单门店='" & bg1.Text & "'and 订单日期= ")
dtb.Groups.AddDef("订单日期", DateGroupEnum.Year, "年") '添加日期列用于分组,并用"年"代替原名称
dtb.Groups.AddDef("订单日期","月")
dtb.Groups.AddDef("订单门店")
dtb.Totals.AddDef("发货价","投入")
dtb.Totals.AddDef("总额","产出")
dtb.Totals.AddDef("利润")
dtb.Subtotal=True
dtb.SamePeriodGrowth=True
dtb.VerticalTotal=True
dtb.GrandProportion=True
dtb.GroupProportion=True
dtb.CircleGrowth=True
dtb.Build()