| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 统计 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185702) |
| -- 作者：飞123 -- 发布时间：2023/3/11 12:12:00 -- 统计 b2.Totals.AddExp ( "销售_金额", "数量*单价") b1.Totals.AddExp ( "进货_金额", "数量*单价") 这两行代码有什么不同，为什么第一行代码注释后，就能正常运行 Dim b1 As New SQLGroupTableBuilder("统计表", "进货单") Dim d1 As fxDataSource b1.Groups.AddDef("型号") b1.Totals.AddDef ("数量", "进货_数量") b1.Totals.AddExp ( "进货_金额", "数量*单价") d1 = b1.BuildDataSource Dim b2 As New SQLGroupTableBuilder("统计表", "销售单") Dim d2 As fxDataSource b2.Groups.AddDef("型号") b2.Totals.AddDef ("数量", "销售_数量") b2.Totals.AddExp ( "销售_金额", "数量*单价") d2 = b2.BuildDataSource Dim b3 As New SQLGroupTableBuilder("统计表", "退货单") Dim d3 As fxDataSource b3.Groups.AddDef("型号") b3.Totals.AddDef ("数量", "退货_数量") b3.Totals.AddExp ( "退货_金额", "数量*单价") d3 = b3.BuildDataSource d1.Combine ("型号", d2, "型号") d1.Combine ("型号", d3, "型号") Tables("窗口3_Table1").DataSource = d1 With DataTables ("窗口3_Table1").DataCols .Add("库存_数量", GetType(Integer), "isnull([进货_数量], 0) - isnull([销售_数量], 0) - isnull([退货_数量], 0)") .Add ("库存_金额", GetType(Double), "[库存_数量]*[进货_金额]") End With |
| -- 作者：有点蓝 -- 发布时间：2023/3/11 13:12:00 -- 都一样的东西，是不是列名写错了 |