主题：求助代码

你的逻辑是什么？要总结清楚

 

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

 

代码你要写到DataColChanged事件去。

 如果是提示你变量定义重复，那么，你可以把给变量dr换一个名字