\'---交叉汇总数据
Dim tbl As Table = Tables(e.Form.name & "_主表")
Dim b As New CrossTableBuilder("统计表1",dt)
b.ConnectionName = Mydata
b.HGroups.AddDef("机台") \'添加客户列用于水平分组
b.HGroups.AddDef("产品编码") \'添加客户列用于水平分组
b.HGroups.AddDef("品名") \'添加客户列用于水平分组
b.HGroups.AddDef("规格") \'添加客户列用于水平分组
b.HGroups.AddDef("标准产能") \'添加客户列用于水平分组
b.HGroups.AddDef("生产车间") \'添加客户列用于水平分组
b.VGroups.AddDef("生产日期",DateGroupEnum.Year,"{0}年") \'添加产品列用于垂直分组,并设置了Pattern参数
b.VGroups.AddDef("生产日期",DateGroupEnum.Month,"{0}月") \'添加产品列用于垂直分组,并设置了Pattern参数
b.VGroups.AddDef("生产日期",DateGroupEnum.Day,"{0}日") \'添加产品列用于垂直分组,并设置了Pattern参数
b.Totals.AddDef("生产数量") \'添加数量列用于统计
b.HorizontalTotal = True \'水平方向自动汇总
b.VerticalTotal = True \'垂直方向自动汇总
\' b.Build \'生成统计表
e.Form.StopRedraw
tbl.StopRedraw
tbl.DataSource = b.BuildDataSource
tbl.AutoSizeCols \'自动列宽
tbl.Cols("产品编码").Width = 100 \'指定某列宽
tbl.Cols("品名").Width = 100 \'指定某列宽
tbl.Cols("规格").Width = 100 \'指定某列宽
tbl.Sort = "机台"
tbl.ResumeRedraw
e.Form.ResumeRedraw
但结果就是没按顺序排