修改这里的代码
Dim b As New CrossTableBuilder("统计表1",DataTables("订单")) b.HGroups.AddDef(e.PostValues("水平分组")) b.VGroups.AddDef(e.PostValues("垂直分组")) b.Totals.AddDef(e.PostValues("统计列")) wb.AddTable("","Table1").CreateFromDataTable(b.Build(True))
http://www.foxtable.com/webhelp/scr/0678.htm