Select Case e.DataCol.Name Case "本工序_投产数量_根" ,"本工序_日生产能力_根","交付数量_根","库存数量_根" If e.DataRow.IsNull("交付数量_根") Then e.DataRow("本工序_投产数量_根")=Nothing Else If e.DataRow.IsNull("库存数量_根") Then e.DataRow("库存数量_根")=0 Else e.DataRow("本工序_投产数量_根") = e.DataRow("交付数量_根") - e.DataRow("库存数量_根")' End If If e.DataRow.IsNull("本工序_投产数量_根") OrElse e.DataRow.IsNull("本工序_日生产能力_根") Then e.DataRow("本工序_生产周期_天")=Nothing Else e.DataRow("本工序_生产周期_天") = e.DataRow("本工序_投产数量_根") / e.DataRow("本工序_日生产能力_根") End If End If End Select
|