Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))
b.HGroups.AddDef("客户") \'添加客户列用于水平分组
b.VGroups.AddDef("产品") \'添加产品列用于垂直分组
b.Totals.AddDef("数量") \'添加数量列用于统计
b.Build \'生成统计表
Maintable = Tables("统计表1") \'打开生成的统计表

b.HGroups.AddDef("客户") \'添加客户列用于水平分组

假如列“客户”为日期型，就无法生成表，如何解决？

贺老师，传上你的附件。

附件就是casestudy下的文件： 统计演示.table

日期列的格式 应该是 2012-01-01，但实际显示的为1。代码在表A的窗口中。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.rar

看清楚帮助的说明：

添加水平分组到HGroups的语法是：　

HGroups.AddDef(Name)
HGroups.AddDef(Name, NewName)
HGroups.AddDef(Name, NewName, NewCaption)
HGroups.AddDef(Name, DateGroup)
HGroups.AddDef(Name, DateGroup, NewName)
HGroups.AddDef(Name, DateGroup, NewName, NewCaption)

参数说明

Name: 字符型，指定分组列。
NewName: 字符型，用于给分组列指定一个新的名称，这个名称在统计表中显示。
NewCaption: 字符型，用于给分组列设置标题。
DateGroup： DateGroupEnum型枚举，如果分组列是日期列，可用此属性指定如何根据日期进行分组，默认按月分组。

DateGroupEnum枚举的可选值：

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

所以你要按天分组：
 
b.HGroups.AddDef("日期",DateGroupEnum.None)

不能生成表和按月生成， 是两个完全不同的概念，一开始你就应该将问题表述清楚的。