主题：表达式

Select Case e.DataCol.name

    Case "销售类别", "订单数", "毛坯库存数", "成品库存数","毛坯差异数","成品差异数","毛坯计划数","成品计划数"

  Dim s As String = e.DataRow("销售类别")

If s = "毛坯" Then

            e.DataRow("毛坯差异数") = Eval2(e.DataRow("订单数"))-e.DataRow("毛坯库存数")

 e.DataRow("毛坯计划数") = e.DataRow("毛坯差异数")

e.DataRow("成品库存数") ="0"

e.DataRow("成品差异数") ="0"

e.DataRow("成品计划数") ="0"

       

  ElseIf  s = "成品" Then

 e.DataRow("毛坯差异数") = Eval2(e.DataRow("订单数"))-e.DataRow("毛坯库存数")-e.DataRow("成品库存数")

  e.DataRow("成品差异数") = Eval2(e.DataRow("订单数"))-e.DataRow("成品库存数")

e.DataRow("毛坯计划数") = Eval2(e.DataRow("订单数"))-e.DataRow("毛坯库存数")

e.DataRow("成品计划数") = Eval2(e.DataRow("订单数"))-e.DataRow("成品库存数")

        End If

End Select

老师好，毛坯计划数出现负数，如何修改。