我把现金日记账 和 银行日记账 进行交叉统计 然后 合并一个统计表 为什么窗口预览的时候提示错误?
请问代码哪里错了
Dim bd1 As New CrossTableBuilder("统计表1", DataTables("现金日记账"))
Dim dt1 As fxDataSource
bd1.HGroups.AddDef("摘要_类型")
bd1.VGroups.AddDef("时间", DateGroupEnum.Year, "{0}年")
bd1.VGroups.AddDef("时间", "{0}月")
bd1.Totals.AddDef("收入", "现金收入")
bd1.Totals.AddDef("支出", "现金支出")
bd1.VerticalTotal = True
bd1.FromServer = True
dt1 = bd1.BuildDataSource()
Dim bd2 As New CrossTableBuilder("统计表2",DataTables("银行日记账"))
Dim dt2 As fxDataSource
bd2.HGroups.AddDef("摘要_类型")
bd2.VGroups.AddDef("时间", DateGroupEnum.Year, "{0}年")
bd2.VGroups.AddDef("时间", "{0}月")
bd2.Totals.AddDef("收入", "银行收入")
bd2.Totals.AddDef("支出", "银行支出")
bd2.VerticalTotal = True
bd2.FromServer = True
dt2 = bd2.BuildDataSource()
dt1.Combine("摘要_类型",dt2,"摘要_类型") '将销售统计数据组合到进货统计数据
Tables("日记账_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("日记账_Table1").DataCols '用表达式列计算库存数据
.Add("收入",Gettype(Double), "IsNull([现金收入],0) + IsNull([银行收入],0)")
.Add("支出",Gettype(Double), "IsNull([现金支出],0) + IsNull([银行支出],0)")
End With
还有个问题,图中为什么中间多出一个为空的列?代码里面没有这一列啊~~~谢谢~~盼解答
此主题相关图片如下:360反馈意见截图16421106999290.png
此主题相关图片如下:360反馈意见截图16490128215705.png