Wenn ich das richtig sehe, dann sind die zu addierende Felder untereinander, richtig?
dann kannst du diesen code nutze:
Delphi-Quellcode:
procedure TMietverwaltung.summe;
var summ:currency;
begin
summ:=0.0;
while Not Table2.EOF do
begin
summ := summ +Table1.FieldByName('DASFELD').AsFloat;
Table2.Next;
end;
dbtext1.Caption := Format('%8.2f', [summ])+' €';
wenn die felder nebeneinander sind dann kannste das so machen:
table2['feld1']:=table2['feld2']+table2['feld3'];
Plautzer