代码如下:【在销售和成本】这个窗体关闭后执行事件中
Dim b As Row=Tables("产品价格").Current
Dim r2 As Row=Tables("创业计划书").Current
b("成本价")=(Tables("销售和成本计划表").Compute("Sum(成本_总成本)","[计划书编号] = '" & r2("计划书编号") & "'")/Tables("销售和成本计划表").Compute("Sum(销售_含流转税销售收入)","[计划书编号] = '" & r2("计划书编号") & "'"))*b("销售价")
Tables("创业计划书.产品价格").Current.DataRow.Load()
当上述窗体关闭后 再次打开产品服务价格窗体 即可看见成本价只对当前最后一行数据有 其他编号的则没有 求解
期待实现:
当前计划书所对应的计划书编号下,产品价格表中所有的产品都对应计算成本价
[此贴子已经被作者于2015/3/14 22:48:22编辑过]