此时将“提交日期”列作为连接列,会报错。
Dim b As New SQLCrossTableBuilder("统计表1","租赁项目结转明细表")
b.C
Dim dt1 As fxDataSource
b.HGroups.AddDef("项目名称") '添加产品列用于垂直分组
b.HGroups.AddDef("提交日期",DateGroupEnum.Year,"年") '添加日期列用于垂直分组,按年分组
b.Totals.AddExp("金额3",……)
b.Totals.AddExp("金额4",……)
b.Subtotal=True
dt1 = b.BuildDataSource()
Dim b1 As New SQLCrossTableBuilder("统计表2","租赁项目结转明细表")
b1.C
Dim dt2 As fxDataSource
b1.HGroups.AddDef("项目名称") '添加产品列用于垂直分组
b1.HGroups.AddDef("提交日期",DateGroupEnum.Year,"年") '添加日期列用于垂直分组,按年分组
b1.Totals.AddExp("金额1",……)
dt2 = b1.BuildDataSource()
Dim nms As String() = {"项目名称","提交日期"} '指定连接列
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
dt1.Show("统计表1")
[此贴子已经被作者于2019/8/20 16:51:59编辑过]