Dim bg1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim bg2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim dtb As New GroupTableBuilder("统计",DataTables("订单明细"))
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
Dim d As Date = New date(bg2.text, 1, 1)
dtb.filter = "订单门店='" & bg1.Text & "' and 订单日期>=#" & d & "# and 订单日期<#" & d.AddYears(1) & "#"
dtb.Build()
加好友 
发短信
Post By：2017/12/8 17:19:00 [只看该作者]
此主题相关图片如下：1111.png