Zitat von
kluckweb:
Hallo zusammen,
bräuchte mal kurz Eure Hilfe.
Bei folgender Schleife wird der erste und letzte Datensatz leider nicht kopiert und ich weiß wirklich nicht warum. Könnt Ihr helfen?
Der Code ist:
Delphi-Quellcode:
Ausgaben.First;
while not Ausgaben.Eof do
begin
Kassenbuch.Append;
Kassenbuch.Edit;
Kassenbuch.FieldbyName('datum').asVariant := Ausgaben.FieldbyName('datum').asVariant;
Kassenbuch.FieldbyName('zurgnr').asInteger := Ausgaben.FieldbyName('zurgnr').asInteger;
Kassenbuch.FieldbyName('betrag').asVariant := Ausgaben.FieldbyName('betrag').asVariant * -1;
Kassenbuch.FieldbyName('betreff').asString := Ausgaben.FieldbyName('vermerk').asString;
Ausgaben.Next
end;
Kassenbuch.Post;
wundert mich, dass er doch so viel kopiert...
versuchs mal mit:
Delphi-Quellcode:
Ausgaben.First;
while not Ausgaben.Eof do
begin
Kassenbuch.Append;
Kassenbuch.FieldbyName('datum').asVariant := Ausgaben.FieldbyName('datum').asVariant;
Kassenbuch.FieldbyName('zurgnr').asInteger := Ausgaben.FieldbyName('zurgnr').asInteger;
Kassenbuch.FieldbyName('betrag').asVariant := Ausgaben.FieldbyName('betrag').asVariant * -1;
Kassenbuch.FieldbyName('betreff').asString := Ausgaben.FieldbyName('vermerk').asString;
Kassenbuch.Post;
Ausgaben.Next
end;