Mir ist an deinem Code aufgefallen, daß du zuerst die beiden Felder ART_NR und ART_GR ausliest, um im Editmodus genau diese beiden Werte wieder in genau diese Felder reinzuschreiben. Das ergibt irgendwie keinen Sinn: Wenn du diese beiden Werte nicht ändern möchtest, mußt du diese beiden Felder auch nicht anfassen.
Delphi-Quellcode:
// Art_grp:=Datamodul.DataModule1.CDSArtikel.FieldByName('ART_GR').asstring;
// Art_Num:=Datamodul.DataModule1.CDSArtikel.FieldByName('ART_NR').asstring;
if Datamodul.DataModule1.CDSArtikel.State<>dsEdit then
Datamodul.DataModule1.CDSArtikel.Edit;
Datamodul.DataModule1.CDSArtikel.FieldByName('Bemerkung').asstring:=Bem;
// Datamodul.DataModule1.CDSArtikel.FieldByName('ART_GR').asstring:=Art_Grp;
// Datamodul.DataModule1.CDSArtikel.FieldByName('ART_NR').asstring:=Art_Num;
Datamodul.DataModule1.CDSArtikel.Post;