没有冲突。
If e.DataRow("工序") = "线切割" And e.DataRow("工步") = "割R角" Then '里面的代码只有符合这2个条件才会计算
Select Case e.DataCol.Name
Case "直径" , "直径高度" , "线切割引线长度" , "钱切割加工速度"
if e.DataRow("钱切割加工速度") = 0 then
e.DataRow("单工步加工时间") = 0
else
e.DataRow("单工步加工时间") = (e.DataRow("直径") * 3.14 * e.DataRow("直径高度") / 4 + e.DataRow("线切割引线长度")) / e.DataRow("钱切割加工速度")
end if
Case "单工步加工时间" , "加工单价", "单工步线切割穿孔数量", "线切割穿孔单价"
e.DataRow("单工步加工费") = e.DataRow("单工步加工时间") * e.DataRow("加工单价") + e.DataRow("单工步线切割穿孔数量") * e.DataRow("线切割穿孔单价")
End Select
End If
加好友 
发短信
Post By：2023/10/16 23:54:00 [只看该作者]
