以下代码是年/月/周 统计的

Dim b As New CrossTableBuilder("统计表6",DataTables("生产订单"))
b.HGroups.AddDef("产品名称")
b.HGroups.AddDef("订单数量")
b.HGroups.AddDef("生产交期",DateGroupEnum.none)

b.VGroups.AddDef("生产交期",DateGroupEnum.Year,"{0}年")
b.VGroups.AddDef("生产交期","{0}月")
b.VGroups.AddDef("生产交期",DateGroupEnum.week,"{0}周")
b.Totals.AddDef("订单数量")
b.OrderByTotal = True
b.VerticalTotal= True
b.HorizontalTotal = True
b.Build()

请问如何改成按  年/月/周/日    来统计，谢谢

http://www.foxtable.com/webhelp/topics/0678.htm

DateGroupEnum枚举的可选值：

None ：     不分组
Year：      按年分组 
Quarter：   按季度分组
Month：     按月分组
Week：      按周分组
Day：       按天分组，月中的某一天。
Hour：      按小时分组
Minute：    按分钟分组 Second：    按秒分组

老师这个是按列排序，我是想把最后的合计行显示在最第一行,如下图：

此主题相关图片如下：qq截图20191128105436.jpg

也就是说把第37行的合计行放到第1行，全部代码如下，请帮忙修改：

Dim b As New CrossTableBuilder("统计表6",DataTables("生产订单"))
b.HGroups.AddDef("产品名称")
b.HGroups.AddDef("订单数量")
b.HGroups.AddDef("生产交期",DateGroupEnum.none)
b.VGroups.AddDef("生产交期",DateGroupEnum.Year,"{0}年")
b.VGroups.AddDef("生产交期","{0}月")
b.VGroups.AddDef("生产交期",DateGroupEnum.week,"{0}周")
b.VGroups.AddDef("生产交期",DateGroupEnum.day,"{0}日")
b.Totals.AddDef("订单数量")
b.OrderByTotal = True
b.VerticalTotal= True
b.HorizontalTotal = True
b.Build()

Dim t As Table = e.form.controls("Table1").Table
t.datasource = b.BuildDataSource
t.DataTable.GlobalHandler.AfterEdit = True
t.AllowEdit = True
e.form.controls("Table1").Table.AutoSizeCols(3)
t.DefaultRowHeight = 31

代码引用后显示“此表不支持移动行”

代码引用后没有任何变化，与5楼一样