主题：求纠正代码为什么只能修改最后一行记录呢？

代码如下：【在销售和成本】这个窗体关闭后执行事件中

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()

当上述窗体关闭后 再次打开产品服务价格窗体 即可看见成本价只对当前最后一行数据有  其他编号的则没有  求解

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:创业计划书.foxdb

当前计划书所对应的计划书编号下，产品价格表中所有的产品都对应计算成本价 

Dim r2 As Row=Tables("创业计划书").Current
For Each b As Row In Tables("创业计划书.产品价格").Rows
    b("成本价")=(Tables("销售和成本计划表").Compute("Sum(成本_总成本)","[计划书编号] = '" & r2("计划书编号") & "'")/Tables("销售和成本计划表").Compute("Sum(销售_含流转税销售收入)","[计划书编号] = '" & r2("计划书编号") & "'"))*b("销售价")
Next