前后的代码略去，中间涉及到的代码如下
略
Case "品种_杆径","品种_长度","品种_材质"
Dim dc As DataRow = e.DataRow
Dim pc As DataRow
Dim filter1 As String
Dim filter2 As String
filter1 = "品种_杆径 = '" & dc("品种_杆径") & "' And 品种_长度 = '" & dc("品种_长度") & "'"
filter2 = "品种_杆径 = '" & dc("品种_杆径") & "' And 品种_材质 = '" & dc("品种_材质") & "'"
pc = DataTables("工序能力表").Find(filter1)
If pc IsNot Nothing Then
If dc("品种_材质") = "30CrMoA" Then
dc("本工序_日生产能力_根") = pc("日生产能力_高频_30CrMoA")
Else
dc("本工序_日生产能力_根") = pc("日生产能力_高频_20CrMoA")
End If
End If
pc = DataTables("废品损失率表").Find(filter2)
If pc IsNot Nothing Then
dc("本工序_废品损失率_百分比") = pc("工序_高频")
End If
略
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
略
加好友 
发短信
Post By：2016/6/24 9:37:00 [显示全部帖子]
此主题相关图片如下：错误信息1.bmp
