最后一段代码 绿色标志,报错。
Dim g As New GroupTableBuilder("统计表12", DataTables("签到表"))
Dim dt11 As fxDataSource
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Totals.AddDef("教练奖励")
dt11 = g.BuildDataSource()
Dim g1 As New GroupTableBuilder("月统计表", DataTables("学生签到明细表"))
Dim dt1 As fxDataSource
g1.Groups.AddDef("上课日期", DateGroupEnum.Year, "年")
g1.Groups.AddDef("上课日期", "月")
g1.Totals.AddDef("学号", AggregateEnum.Count)
g1.Totals.AddDef("课时标准")
dt1 = g1.BuildDataSource()
Dim g2 As New GroupTableBuilder("统计表1", DataTables("教师签到表"))
Dim dt2 As fxDataSource
g2.Groups.AddDef("上课日期", DateGroupEnum.Year, "年")
g2.Groups.AddDef("上课日期", "月")
g2.Totals.AddDef("单节课时费")
dt2 = g2.BuildDataSource()
dt1.Combine({"年","月"},dt11,{"年","月"})
dt1.Combine({"年","月"},dt2,{"年","月"})'将销售统计数据组合到进货统计数据
dt1.Show("月统计表")
MainTable = Tables("月统计表")
Tables("月统计表_Table1").DataSource = dt1
With DataTables("月统计表_Table1").DataCols '用表达式列计算库存数据
.Add("金额",Gettype(Double), "IsNull([课时标准],0) - ISNULL([单节课时费],0) - ISNULL([教练奖励],0)")
End With
报错代码
月统计表不存在金额的列。