主题：请高手指教一下,

If e.DataCol.Name<>"通打数量" Then
    Dim dr As DataRow = e.DataRow
    If iif(dr("通打数量") Is Nothing,0,dr("通打数量")) = 0 Then
        dr("通打数量") = iif(dr("合同数量") Is Nothing,0,dr("合同数量")) - iif(dr("库存") Is Nothing,0,dr("库存"))+ iif(dr("补数") Is Nothing,0,dr("补数"))
    Else
        If e.DataCol.Name = "库存" Then
            dr("通打数量") = dr("通打数量") - dr("库存")
        End If
        If e.DataCol.Name = "补数" Then
            dr("通打数量") = dr("通打数量") + dr("补数")
        End If
    End If
End If

 

 

试一下，

 

 

有一个这样变化,  当在库存里面输入5的时候,通打数量为5,  当把库存里面的数改为4时通条打里面的数量为1,这段运算就不对,当库存里面的数由5变4的时候,通打数量里面的值应是加,不是减,也就是库存里面的值变小的情况,通打数量里面为加,反之 库存里面的值变大的情况,通打数量里面为减,  其它的运算结果都是如意的,还有帮看一下

If e.DataCol.Name<>"通打数量" Then
    Dim dr As DataRow = e.DataRow
    If iif(dr("通打数量") Is Nothing,0,dr("通打数量")) = 0 Then
        dr("通打数量") = iif(dr("合同数量") Is Nothing,0,dr("合同数量")) - iif(dr("库存") Is Nothing,0,dr("库存"))+ iif(dr("补数") Is Nothing,0,dr("补数"))
    Else
        If e.DataCol.Name = "库存" Then
            dr("通打数量") = dr("通打数量") - (e.NewValue - e.OldValue)
        End If
        If e.DataCol.Name = "补数" Then
            dr("通打数量") = dr("通打数量") + dr("补数")
            'dr("通打数量") = dr("通打数量") + (e.NewValue - e.OldValue)
        End If
    End If
End If

13楼的代码是对谢谢,不过有一个问题,就是在原表中加入一个列,这个列与前面的几个列不发生关系,但是我在加入列中填写内容后,通打数量列中会自动出现数字, 要如何更改代码.

If e.DataCol.Name<>"通打数量" andalso e.datacol.name <> "你新增的列名" Then

我的意思是,这段代码是对的,  但是我这个表不光就这几列, 以后会增加很多列,  但是在除了这几个运算列之外,在别的任何一列输入内容后, 通打数里面就自动引用合同数量里的数,

select case e.datacol.name