Select Case e.DataCol.name

    Case "申请单号"

        Dim dr As DataRow = e.DataRow

            Dim pr As DataRow = dr.GetParentRow("申请单")

            If pr IsNot Nothing Then

                Dim v As Double = e.DataTable.Compute("sum(发票金额)","申请单号 = \'"& pr("申请单号") & "\'")

                pr("备注") = "增票" & dr("发票号码") & "#" & dr("发票抬头") & "金额:" & v

            End If

End Select

增加进项发票输入发票金额时,出现如下错误提示,删除行时也会,输入完成后切换申请单的上下行却能出现正确结果

此主题相关图片如下：运行错误.png

而且列“发票金额”本来就不属于表 申请单 非常疑惑