主题：如果A列的计算结果满足条件,则使用另一列的计算公式计算

1、需要增加一个计算采购数量的代码:我在EXCEL里面是这样表达的:'=IF(纸长开=1,订单数量/纸度开*2,订单数量/纸度开)

 r("采购数量") = r("订单数量")/r("纸度开") * iif(r("纸长开") = 1,2,1)

2、 需加一个计算"采购长"     是根据"纸长"的值,例如:纸长的值是33.111,采购长应该显示为33.125(意思就是尾数应该是1除以8的分数:如:0.125,0.25,0.375,0.5,0.625,0.75,0.875)

这个问题，我记得之前已经回复你，并且做了一个示例文件给你的。

     Dim dr2 As DataRow = DataTables("zhidu").find("动态值 >= " & r("纸宽"), "动态值")
     If dr2 IsNot Nothing Then
           r("采购宽") = dr2("动态值")
      End If       

End if

1、

if r("纸长") < 27.5 then 
   s2= r("pzc")

Else

   s2 = r("zc")

end  if
s2 = s2.Replace("[L]",r("L"))
s2 = s2.Replace("[W]",r("W"))
s2 = s2.Replace("[H]",r("H"))
s2 = s2.Replace("[订条值]",r("订条值"))

2、

If r("纸宽") > 40 then
       s3 = r("pzk")

       r("纸长开") = 1

   Else

      s3 = r("zk")

End if
s3 = s3.Replace("[L]",r("L"))
s3 = s3.Replace("[W]",r("W"))
s3 = s3.Replace("[H]",r("H"))
s3 = s3.Replace("[纸长开]",r("纸长开"))