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
加好友 
发短信
Post By：2023/3/11 12:12:00 [只看该作者]
