你的逻辑是什么?要总结清楚
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "数量","现有库存"
If dr.IsNull("数量") OrElse dr.IsNull("现有库存") Then
dr("生产计划") = Nothing
Else
If dr("生产计划") = "1702-01" Then
dr("生产计划") = (dr("数量") - dr("现有库存")) * 1.05
ElseIf dr("生产计划") = "1702-02" orelse dr("生产计划") = "1702-03" Then
dr("生产计划") = dr("数量") * 1.05
End If
End If
End Select
[此贴子已经被作者于2017/2/5 14:10:59编辑过]