改写数据库信息 ( 积分: 100 )

with table2 do
begin
pay:=fields.FieldByName('单价').AsCurrency;
end;
{得到"应付金额"}
needPay:=pay;
with table1 do
begin
bl:=fieldByName('结余').AsCurrency-needpay;
df:=fieldByName('欠款').AsCurrency-needpay;
end;

with table1 do
begin
edit;
fieldValues['结余']:=bl;
fieldValues['欠款']:=df;

程序可以运行,没有出现错误,但是最后操作结果是table1中的"结余"和 "欠款"的数据并没有改变
这是什么原因?希望可以得到帮助,谢谢

加上Post试试

应该就是少了Post。没有提交。

提交，然後刷新

谢谢你们了，问题解决了。