加好友 发短信
等级:贵宾
帖子:39310
积分:196782
威望:0
精华:1
注册:2015/4/25 9:23:00
|
Post By:2016/6/24 10:24:00 [只看该作者]
1楼代码,写成
Case "本工序_日生产能力_根","包装工序_需要数量_根","本工序_库存在制品_根","本工序_废品损失率_百分比" If e.DataRow.IsNull("包装工序_需要数量_根") Then e.DataRow("本工序_应投产数量_根")=Nothing Else If e.DataRow.IsNull("本工序_库存在制品_根") Then e.DataRow("本工序_库存在制品_根")=0 Else If e.DataRow.IsNull("本工序_废品损失率_百分比") Then e.DataRow("本工序_废品损失率_百分比")=0 Else e.DataRow("本工序_应投产数量_根") = e.DataRow("包装工序_需要数量_根")*(1+"本工序_废品损失率_百分比") - e.DataRow("本工序_库存在制品_根")' End If If e.DataRow.IsNull("本工序_投产数量_根") OrElse e.DataRow.IsNull("本工序_日生产能力_根") Then e.DataRow("本工序_生产周期_天")=Nothing Else e.DataRow("本工序_生产周期_天") = e.DataRow("本工序_投产数量_根") / e.DataRow("本工序_日生产能力_根")'计算D列的代码 End If End If End If
|
|