Dim bd1 As New GroupTableBuilder("统计表1",DataTables("燃油录入"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("统计日期",DateGroupEnum.Year,"年度")
bd1.Groups.AddDef("统计日期","月份")
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("统计日期",DateGroupEnum.Year,"年度")
bd2.Groups.AddDef("统计日期","月份")
bd2.Groups.AddDef("统计班组")
bd2.Groups.AddDef("客户_车号","车 号")
bd2.Totals.AddDef("备件_总价","支出_物资金额")
dt2 = bd2.BuildDataSource()
Dim bd3 As New GroupTableBuilder("统计表3",DataTables("临时出车结算"))
Dim dt3 As fxDataSource
bd2.Groups.AddDef("统计日期",DateGroupEnum.Year,"年度")
bd2.Groups.AddDef("统计日期","月份")
bd2.Groups.AddDef("统计班组")
bd3.Groups.AddDef("车号","车 号")
bd3.Totals.AddDef("总价","收入_金额")
dt3 = bd3.BuildDataSource()
dt1.Combine("车 号",dt2,"车 号")
dt1.Combine("车 号",dt3,"车 号")
Tables("结算日报_Table1").DataSource = dt1
With DataTables("结算日报_Table1").DataCols
.Add("支出总费用",Gettype(Integer), "IsNull([支出_燃油金额],0) + ISNULL([支出_物资金额],0)")
.Add("收入总费用",Gettype(Integer), "IsNull([收入_金额],0)")
.Add("单车核算_盈亏",Gettype(Integer), "IsNull([收入_金额],0)-IsNull([支出_燃油金额],0) - ISNULL([支出_物资金额],0)")
End With
燃油、出库、出车结算周期不同，按燃油月进行统计，出库、出车统计数据出错，请教师如何处理？
加好友 
发短信
Post By：2020/8/3 23:05:00 [显示全部帖子]
