[Pablo Carlos]

Aquí podeis ver el código del método que solo guarda:

 

table4.Post;
listbox1.Clear;
edit1.Clear;
suma:=0; // este valor lo tomas del edit1?
end;
[/quote]

Hasta aquí lo entiendo... Comparto lo de marcoszorrilla

Y aquí el que guarda e imprime (Que creo que es el que falla)

var
f:textfile;
i:integer;
begin
if suma<>0 then begin
table3.Append;
table3.FieldByName('data').AsDateTime:=now;
table3.FieldByName('total').AsFloat:=suma;
table3.Post;
table4.Append;
table4.FieldByName('datab').AsDateTime:=now;
table4.FieldByName('totalb').AsFloat:=suma; // si el valor lo tomas del edit1 en el post de la table4 lo borras?
table4.Post;
listbox1.Clear;
edit1.Clear;
suma:=0;
end;

Lo único que no entiendo es lo que te agregue en el código, ¿el valor de suma lo tomas del edit1? si es así, me parece que lo borras antes del post de la table3.-
Revisa ese detalle, si es que no me equivoco
Saludos