Ich greif nur einmal auf die Tabelle zu. Es funktioniert trotzdem nicht. Da bleib ich lieber bei der herkömmlichen methode.
Obwohl ich selbiges jetzt mit einen
Query gelöst habe, bleibt das problem das ich eine unedlichschleife hab.
Delphi-Quellcode:
procedure TFormGehaltsliste.berechnen;
var sum : currency;
nummer : integer;
begin
hauptform.table1.autocalcfields := false;
hauptform.table6.First;
while not hauptform.table6.eof do hauptform.table6.delete; //wenn ich diese zeile
hauptform.table1.first;
while not hauptform.table1.eof do begin
//in diese schleife packe, bekomme ich keine endlosschleife. Leider ist dann aber auch nur der letzte datensatz drin :cry:
sum := 0;
while not hauptform.query2.eof do begin
sum := hauptform.query2.fieldbyname('betrag').ascurrency + sum;
hauptform.query2.next;
end;
hauptform.table6.append;
hauptform.table6verteiler.value := hauptform.query2verteiler.value;
hauptform.table6gehalt.value := sum;
hauptform.table6.post;
hauptform.table1.next;
showmessage(hauptform.table1zhler.asstring);
end;
hauptform.table1.autocalcfields := true;
end;
Ich vermute, das das Problem in den autocalcfields liegt. Deshalb hier der Code. Denn wenn ich diese Anweisungen in {} setze also nicht ausführen lasse, funktioniert es, wie es soll. Warum führt er überhaupt noch diese anweisungen aus, obwohl ich autocalcfields auf false gesetzt habe?
Delphi-Quellcode:
procedure THauptform.Table6CalcFields(DataSet: TDataSet);
var i : integer;
begin
if not (table6verteiler.value = 0) then begin
i := table6verteiler.value;
table1.setkey;
table1.fieldbyname('Zähler').asInteger := i;
table1.gotokey;
table6verteilername.value := table1name.value + ', ' + table1vorname.value;
table6strasse.value := table1.fieldbyname('straße').value + ' ' +table1hausnummer.value;
table6strasse.value
end;
end;