我下面的一大段代码是采用组合统计多个连接列编写的，测试后应用没有其他问题。只有一个问题很困扰我，就是根据月度分组时本该同年同月在一起分组的，但是这段代码是把不同年份相同月份的数据分组在一起了。个数据表中月度列的列属性我选择的都是日期时间，格式是DATE（2014-01-31），请大侠们帮我看看这段代码哪里有问题，小弟不胜感激啊

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("营业收入"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("店面名称") \'根据店面名称分组
bd1.Groups.AddDef("月度") \'根据月度分组
bd1.Totals.AddDef("营业收入","收入总金额") \'对营业收入进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("固定支出"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("店面名称") \'根据店面名称分组
bd2.Groups.AddDef("月度") \'根据月度分组
bd2.Totals.AddDef("支出金额","支出总金额") \'对支出金额进行统计
dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3",DataTables("费用支出"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("店面名称") \'根据店面名称分组
bd3.Groups.AddDef("月度") \'根据月度分组
bd3.Totals.AddDef("费用金额","费用总金额") \'对费用金额进行统计
dt3 = bd3.BuildDataSource()

Dim bd4 As New GroupTableBuilder("统计表4",DataTables("成本支出"))
Dim dt4 As fxDataSource
bd4.Groups.AddDef("店面名称") \'根据店面名称分组
bd4.Groups.AddDef("月度") \'根据月度分组
bd4.Totals.AddDef("成本金额","成本总金额") \'对成本金额进行统计
dt4 = bd4.BuildDataSource()

Dim nms As String() = {"店面名称","月度"} \'指定连接列
dt1.Combine(nms,dt2,nms) \'将支出总金额组合到营业收入统计数据
dt1.Combine(nms,dt3,nms) \'将费用总金额组合到营业收入统计数据
dt1.Combine(nms,dt4,nms) \'将成本总金额组合到营业收入统计数据
Tables("窗口1_Table11").DataSource = dt1 \'将统计结果绑定到Table
With DataTables("窗口1_Table11").DataCols  \'用表达式列计算当月利润数据
    .Add("当月利润",Gettype(Integer), "IsNull([收入总金额],0) - ISNULL([支出总金额],0) - ISNULL([费用总金额],0) - ISNULL([成本总金额],0)")
End With

1、你要根据年、月一起分组；

2、最后，要根据店面、年、月一期合并。

在Groups集合中添加一个分组列的语法是：　

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

参数说明

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

DateGroupEnum枚举的可选值：

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

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("营业收入"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("店面名称") \'根据店面名称分组
bd1.Groups.AddDef("月度", DateGroupEnum.Year, "年度")
bd1.Groups.AddDef("月度") \'根据月度分组
bd1.Totals.AddDef("营业收入","收入总金额") \'对营业收入进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("固定支出"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("店面名称") \'根据店面名称分组
bd2.Groups.AddDef("月度", DateGroupEnum.Year, "年度")
bd2.Groups.AddDef("月度") \'根据月度分组
bd2.Totals.AddDef("支出金额","支出总金额") \'对支出金额进行统计
dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3",DataTables("费用支出"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("店面名称") \'根据店面名称分组
bd3.Groups.AddDef("月度", DateGroupEnum.Year, "年度")
bd3.Groups.AddDef("月度") \'根据月度分组
bd3.Totals.AddDef("费用金额","费用总金额") \'对费用金额进行统计
dt3 = bd3.BuildDataSource()

Dim bd4 As New GroupTableBuilder("统计表4",DataTables("成本支出"))
Dim dt4 As fxDataSource
bd4.Groups.AddDef("店面名称") \'根据店面名称分组
bd4.Groups.AddDef("月度", DateGroupEnum.Year, "年度")
bd4.Groups.AddDef("月度") \'根据月度分组
bd4.Totals.AddDef("成本金额","成本总金额") \'对成本金额进行统计
dt4 = bd4.BuildDataSource()

Dim nms As String() = {"店面名称","年度","月度"} \'指定连接列
dt1.Combine(nms,dt2,nms) \'将支出总金额组合到营业收入统计数据
dt1.Combine(nms,dt3,nms) \'将费用总金额组合到营业收入统计数据
dt1.Combine(nms,dt4,nms) \'将成本总金额组合到营业收入统计数据
Tables("窗口1_Table11").DataSource = dt1 \'将统计结果绑定到Table
With DataTables("窗口1_Table11").DataCols  \'用表达式列计算当月利润数据
    .Add("当月利润",Gettype(Integer), "IsNull([收入总金额],0) - ISNULL([支出总金额],0) - ISNULL([费用总金额],0) - ISNULL([成本总金额],0)")
End With

 是不是生成的表没有这些对应的列？

 具体报什么错？