以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求纠正代码为什么只能修改最后一行记录呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65384)
--  作者：李孝春
--  发布时间：2015/3/14 22:46:00
--  求纠正代码为什么只能修改最后一行记录呢？

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

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

期待实现：

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

[此贴子已经被作者于2015/3/14 22:48:22编辑过]
--  作者：有点甜
--  发布时间：2015/3/15 9:42:00
--  

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

 

 
--  作者：李孝春
--  发布时间：2015/3/15 23:47:00
--  回复：（有点甜）Dim r2 As Row=Tables("创业计划书")...
谢谢老师