主题：按日统计

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

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

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