高分请教！请各位看看这段代码应如何写，誰有这方面资料欢迎发邮件给我？(200分)

表如下：
　　　　　　　借方　　贷方　　余额
　　　　　　　100　　　50　　　50
　　　　　　　50　　　　 　　　100　
　　　　　　　　　　　100　　　0
下一条记录的余额用上一条记录的余额＋借方－贷方。
如果哪位有相关代码可以发给我看看，学习一下好吗？
我的邮箱是whxxr@163.com。谢谢!

这种可能还是用EXCEL做更加方便些。
要不你也可加个字段来区分它的层次，
x=sum(借方)-sum(贷方)+第一条记录的余额

//没有考虑字段为空的情况
procedure TForm1.Button1Click(Sender: TObject);
var
l_Ye : Single;
begin
with Table1 do
begin
First;
while not Eof do
begin
l_Ye := FieldByName('YE').AsCurrency;
Next;
Edit;
FieldByName('YE').AsCurrency := l_Ye + FieldByName('JF').AsCurrency - FieldByName('DF').AsCurrency;
Post;
end;
end;
end;

agree svw0506!