主题：[求助]如此怪异的问题，实在解决不了。

可能我的表达有问题。最后我把代码改了一下，就好了。非常感谢BIN的热心解答。

更改前：

If e.DataCol.name="发文金额"
    Dim jyje As  Double = Tables("来文").Compute("sum(结余金额)","指标编号 = '" & e.DataRow("来文编号") & "'")
    If e.newvalue > jyje 
        messagebox.Show("没有这么多钱可以下达了,只有" & jyje & "万元钱了!","友情提示")
        e.cancel = True
    End If
End If

更改后：

If e.DataCol.name="发文金额"
    Dim jyje As  Double = Tables("来文").Compute("sum(结余金额)","指标编号 = '" & e.DataRow("来文编号") & "'")
    If e.newvalue > jyje + e.oldvalue
        messagebox.Show("没有这么多钱可以下达了,只有" & jyje & "万元钱了!","友情提示")
        e.cancel = True
    End If
End If

非常感谢BIN的热心解答。

在来文表里的来文金额里录入4，然后在发文表里的发文金额录入2，此时来文表的来文金额为4，发文金额为2，结余金额为2 。

如果此时因为录入错误，把原来在发文表里发文金额里的2改为3，则3会和来文表里的结余金额2比较，发现发文金额3大于结余金额2（实际此时的结余金额还应该是4，因为2只是误录进去的）。

不知我解释清楚了吗？