Datenmenge weder im Editier noch im Einfügemodus

[hirsch]

Oh mann,
das ist ein klarer Fehler, aber so ist das wenn man auf seinen eigenen Wald schaut, sieht man nichts.
Der Code sieht jetzt so aus

Delphi-Quellcode:

sql:='Select * from Teil2710 where ART_SCHN = '''+EDSch.text+''';';
       With DataModule1.CDSArtikel do begin
         if DataModule1.SQLDSArtikel.Active=True then DataModule1.SQLDSArtikel.Active:=False;
         if Active=True then Active:=False;
         DataModule1.SQLDSArtikel.commandText:=sql;
         DataModule1.SQLDSArtikel.Active:=True;
         Active:=True;
         DataModule1.SQLDSArtikel.refresh;
         refresh;
         if recordcount=1 then begin
           Art_grp:=FieldByName('ART_GR').asstring;
           Art_Num:=FieldByName('ART_NR').asstring;
          if State<>dsEdit then
             Edit;
           FieldByName('Bemerkung').asstring:=Bem;
           FieldByName('ART_GR').asstring:=Art_Grp;
           FieldByName('ART_NR').asstring:=Art_Num;
           Post;
           ApplyUpdates(-1);//<<hier kommt jetzt ein anderer Fehler, Table unknown
         end else
           Showmessage('Die Bemerkung konnte nicht eingetragen werden');

         active:=False;
         DataModule1.SQLDSArtikel.Active:=False;
         Art_Grp:='';
         Art_Num:='';
         edSch.Text:='';
         b_merker:=False;
       end;

Was meint er mit Table unknown? Natürlich kennt er die tabelle, mit der arbeite ich weiter oben ja ständig.