主题：[求助]

 贴出代码

(1+"本工序_废品损失率_百分比")

 

改成

 

(e.DataRow("本工序_废品损失率_百分比")+1)

 做实例发上来，你的代码应该写成死循环了。

 输入各列的值，只报错，不会退出啊。

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