主题：按日统计

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

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()

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

谢谢，可以了，另外请问如何将最后一行统计行放到最前面呀？因为行数太多，看数据要翻到最后行，太麻烦，或者是出现在某一个texbox里面也可以，谢谢蓝老师！

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

 

此主题相关图片如下：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楼一样

谢谢，非常好，就是我想要的，谢谢！

如果把这行能再加点颜色就更好，呵呵呵！