主题：求助：代码补正

由于之前采用的是所有字段全部在一个表里进行操作

现在采用关联表进行字段操作

求解下面红色代码部分 如果采用动态遍历进行自动计算呢？

首先实现产品数量遍历 然后对应产品名 然后再对应自动计算对应的成本价 对手价  求指导 

 

Select Case e.DataCol.Name
    Case "含流转税销售收入合计","总成本合计"
        Dim r As Row =Tables("产品价格").Current
        Dim Sum As Double
        Dim Sum1 As Double
        Dim Sum2 As Double
        Sum = Tables("销售和成本计划表").Compute("Sum(成本_总成本)","[计划书编号] = '" & r2("计划书编号") & "'")
        Sum1 = Tables("销售和成本计划表").Compute("Sum(销售_含流转税销售收入)","[计划书编号] = '" & r2("计划书编号") & "'")
        Sum2 = sum/sum1
        r("价格产品1_成本价")=r("价格产品1_销售价")*sum2
        r("价格产品2_成本价")=r("价格产品2_销售价")*sum2
        r("价格产品3_成本价")=r("价格产品3_销售价")*sum2
        r("价格产品4_成本价")=r("价格产品4_销售价")*sum2
        r("价格产品5_成本价")=r("价格产品5_销售价")*sum2
        r("价格产品6_成本价")=r("价格产品6_销售价")*sum2
        r("价格产品7_成本价")=r("价格产品7_销售价")*sum2
        r("价格产品8_成本价")=r("价格产品8_销售价")*sum2
        r("价格产品1_对手价格")=r("价格产品1_销售价")+(r("价格产品1_销售价")*0.3)
        r("价格产品2_对手价格")=r("价格产品2_销售价")+(r("价格产品2_销售价")*0.3)
        r("价格产品3_对手价格")=r("价格产品3_销售价")+(r("价格产品3_销售价")*0.3)
        r("价格产品4_对手价格")=r("价格产品4_销售价")+(r("价格产品4_销售价")*0.3)
        r("价格产品5_对手价格")=r("价格产品5_销售价")+(r("价格产品5_销售价")*0.3)
        r("价格产品6_对手价格")=r("价格产品6_销售价")+(r("价格产品6_销售价")*0.3)
        r("价格产品7_对手价格")=r("价格产品7_销售价")+(r("价格产品7_销售价")*0.3)
        r("价格产品8_对手价格")=r("价格产品8_销售价")+(r("价格产品8_销售价")*0.3)
End Select

此主题相关图片如下：qq图片20150203104815.jpg

 

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

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

bin 老师

上述代码如果正对原来的表字段是没有问题的

 

现在的表为产品价格表

里面的字段

成本价

销售价

 所以上述代码还有待进一步改进  求指导

就是不类似啊

之前的设计如：产品1 产品2 产品3

现在是直接是产品服务

现在想实现的是 不区分产品服务 直接全部计算按照那比列直接计算成本价  求解

也不知道是不是我思路有问题

当"含流转税销售收入合计","总成本合计"两个字段发生了值的变化之后计算两个值的比列
然后对应计算【产品价格】表中的成本价和对手价格

在销售和成本计划表

计算方法如下：

Sum = Tables("销售和成本计划表").Compute("Sum(成本_总成本)","[计划书编号] = '" & r2("计划书编号") & "'")
        Sum1 = Tables("销售和成本计划表").Compute("Sum(销售_含流转税销售收入)","[计划书编号] = '" & r2("计划书编号") & "'")
        Sum2 = sum/sum1

求纠正 因为楼上那地址和我的理想思路不一样  谢谢

Select Case e.DataCol.Name
    Case "含流转税销售收入合计","总成本合计"
        Dim r As Row =Tables("产品价格").Current
        Dim Sum As Double
        Dim Sum1 As Double
        Dim Sum2 As Double
        Sum = Tables("销售和成本计划表").Compute("Sum(成本_总成本)","[计划书编号] = '" & r2("计划书编号") & "'")
        Sum1 = Tables("销售和成本计划表").Compute("Sum(销售_含流转税销售收入)","[计划书编号] = '" & r2("计划书编号") & "'")
        Sum2 = sum/sum1
        r("成本价")=r("销售价")*sum2

这个只能计算第一行的数据 不能计算所有行 求解