以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  统计代码报错。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172169)
--  作者：夜点蚊香
--  发布时间：2021/9/27 22:02:00
--  统计代码报错。
最后一段代码 绿色标志，报错。
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

报错代码
月统计表不存在金额的列。
--  作者：有点蓝
--  发布时间：2021/9/27 22:07:00
--  
不是这个代码的问题吧,msgbox(2)能不能弹出来？

msgbox(1)
With DataTables("月统计表_Table1").DataCols  \'用表达式列计算库存数据
    .Add("金额",Gettype(Double), "IsNull([课时标准],0) - ISNULL([单节课时费],0) - ISNULL([教练奖励],0)")
End With
msgbox(2)
--  作者：夜点蚊香
--  发布时间：2021/9/27 22:10:00
--  
确实是这个代码，去掉这个代码，不算剩余金额都能正常运行。
--  作者：夜点蚊香
--  发布时间：2021/9/27 22:13:00
--  msgbox(2)能弹出来
msgbox(2)能弹出来
--  作者：有点蓝
--  发布时间：2021/9/27 22:53:00
--  
msgbox(2)能弹出来就肯定不是这里的问题，检查和这个窗口表有关的其它代码