Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "数量","现有库存"
If dr.IsNull("数量") OrElse dr.IsNull("现有库存") Then
dr("生产计划") = Nothing
Else
If dr("生产计划") Like "*-01" Then
dr("生产计划") = (dr("数量") - dr("现有库存")) * 1.05
Else
dr("生产计划") = dr("数量") * 1.05
End If
End If
End Select