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

我想实现的功能是：在发文表的发文金额 里录入的数据不能大于来文表的结余金额。

 

现在的情况是：当来文表的结余金额为4，这时在发文表的发文金额里录入3，如果发现录入错误想把3改为2，则会提示发文金额已经大于来文金额了。而实际情况是2<4

 

如何解决这个问题？麻烦高手赐教。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:指标管理.table

麻烦您测试一下发文表里的第12行。如果发文金额录入2，然后改为3，就会出现提示，而实际来文金额有4.

您在来文表里做的测试，我的问题出在发文表里。

此主题相关图片如下：qq图片1.jpg

发文表里最后一行的发文金额先录入2，然后改为3，就出现这个提示。

Bin

非常感谢您的热心解答，可能我没有表述清楚。非常不好意思。

可能我的表达有问题。最后我把代码改了一下，就好了。非常感谢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只是误录进去的）。

 

不知我解释清楚了吗？