'''
Dim g As New CrossTableBuilder("统计表1", DataTables("订单"))
g.HGroups.AddDef("日期",DateGroupEnum.Year, "年")
g.HGroups.AddDef("日期",DateGroupEnum.Month, "月")
g.VGroups.AddDef("产品","{0}_销量")
g.Totals.AddDef("数量")
g.Totals.AddDef("金额")
g.VerticalTotal = True
g.HorizontalTotal = True
g.VerticalProportion = True
g.Build()
Tables("统计表1").AutoSizeCols(5)
Tables("统计表1").ShowCell(0,0)
MainTable = Tables("统计表1")
Forms("返回").OpenTo("统计表1")
Forms("返回").Controls("TextBox1").Value = "提示: 按月统计不同产品的销售数量,以及某月某产品的销量在该产品的年销量中所占的比例。"
MainTable.Focus()