ty_unix和xianjun两位的方法都有一些问题.
xianjun的第二种方法也不太适用,第四个字段必须是数据库中的物理字段,必须能物理地
写到数据库中,所以不能是计算字段,我的方法是这样:在每一个DBEdit控件中设计exit过程，如下：
procedure TForm1.DBEdit2Exit(Sender: TObject);
begin
table1.first;
while not table1.eof do
begin
table1.edit;
table1A4.value:=table1A1.value;
table1.next;
end;
end;
procedure TForm1.DBEdit3Exit(Sender: TObject);
begin
table1.first;
while not table1.eof do
begin
table1.edit;
table1A4.value:=table1A4.value+TABLE1A2.value;
table1.next;
end;
end;
procedure TForm1.DBEdit4Exit(Sender: TObject);
begin
table1.first;
while not table1.eof do
begin
table1.edit;
table1A4.value:=table1A4.value+table1A3.value;
table1.next;
end;
end;
这样做的问题是当前三个字段都正确无误的时候，计算没有问题，可是一旦有一个字段有错误，
需要改动，那么第四个字段计算就有问题了，不知道应该如何解决。
]