DBASE Datenbunk aktualisieren

[conny drexler]

Hallo alle zusammen,

ich habe ein problem mit dem Update meiner DBASE Datenbank.
Ich kann meine Daten über asinteger zwar ändern, sie aber mitdem Post - Befehl nicht zurückschreiben. Kann mir einer sagen was ich am Quellcode ändern??

Delphi-Quellcode:

  datamodule1.Table1.Open;
  datamodule1.Table1.First;
  while not(eof(journaldatei)) do
    Begin
      init_rechnungszeile(rechnungszeile);
      read(journaldatei,rechnungszeile);
      if rechnungszeile.artikel.dispaartikel then
        Begin
          datamodule1.Table1.First;
          gefunden := false;
          repeat
            datamodule1.table1.Next;
            if datamodule1.Table1ARTIKELNUM.asfloat = rechnungszeile.artikel.Artikelnummer then
              gefunden := true;
          until (datamodule1.Table1.eof) or
            (datamodule1.Table1ARTIKELNUM.asfloat = rechnungszeile.artikel.Artikelnummer);
          if gefunden then
            Begin
              datamodule1.Table1.Edit;
              datamodule1.Table1LAGERBEST.AsFloat := datamodule1.Table1LAGERBEST.AsFloat - rechnungszeile.anzahl;
              datamodule1.Table1.Post;
            end;
        end;
    end;
  closefile(journaldatei);
  datamodule1.Table1.Close;

[edit=Sharky]Code-Tags durch Delphi-Tags ersetzt. Das ist dann besser zu lesen. Mfg, Sharky[/edit]