扩大一些范围,看看问题在哪里?蓝色部分是从2楼粘贴的。
Case "本工序_日生产能力_平锻机1","本工序_日生产能力_平锻机2","本工序_日生产能力_平锻机3","本工序_日生产能力_平锻机4","本工序_日生产能力_平锻机5","本工序_日生产能力_平锻机6","热处理工序_需要数量_根"
If e.DataRow.IsNull("热处理工序_需要数量_根") Then
e.DataRow("本工序_应投产数量_根")=Nothing
Else
e.DataRow("本工序_应投产数量_根") = e.DataRow("热处理工序_需要数量_根")*(e.DataRow("本工序_废品损失率_百分比")+1)
End If
If e.DataRow.IsNull("本工序_日生产能力_平锻机1") Then
e.DataRow("本工序_日生产能力_平锻机1")=0
Else If e.DataRow.IsNull("本工序_日生产能力_平锻机2") Then
e.DataRow("本工序_日生产能力_平锻机2")=0
Else If e.DataRow.IsNull("本工序_日生产能力_平锻机3") Then
e.DataRow("本工序_日生产能力_平锻机3")=0
Else If e.DataRow.IsNull("本工序_日生产能力_平锻机4") Then
e.DataRow("本工序_日生产能力_平锻机4")=0
Else If e.DataRow.IsNull("本工序_日生产能力_平锻机5") Then
e.DataRow("本工序_日生产能力_平锻机5")=0
Else If e.DataRow.IsNull("本工序_日生产能力_平锻机6") Then
e.DataRow("本工序_日生产能力_平锻机6")=0
If e.DataRow.IsNull("本工序_应投产数量_根") OrElse (e.DataRow("本工序_日生产能力_平锻机1")+e.DataRow("本工序_日生产能力_平锻机2")+e.DataRow("本工序_日生产能力_平锻机3")+e.DataRow("本工序_日生产能力_平锻机4")+ e.DataRow("本工序_日生产能力_平锻机5")+e.DataRow("本工序_日生产能力_平锻机"))=0 Then
e.DataRow("本工序_生产周期_天")=Nothing
Else
e.DataRow("本工序_生产周期_天") = e.DataRow("本工序_应投产数量_根") / (e.DataRow.("本工序_日生产能力_平锻机1")+e.DataRow.("本工序_日生产能力_平锻机2")+e.DataRow.("本工序_日生产能力_平锻机3")+e.DataRow.("本工序_日生产能力_平锻机4")+ e.DataRow.("本工序_日生产能力_平锻机5")+e.DataRow.("本工序_日生产能力_平锻机"))
End If
End If