mit folgendem quelltext kopiere ich daten aus ArtikelMDB in table1.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TCSVReader.Button3Click(Sender: TObject);

begin
  ArtikelMDB.Open;
  ArtikelMDB.First;

  while not ArtikelMDB.EOF do
     begin
       tbTable1.append;
       tbtable1Teilenummer.asstring := ArtikelMDBartikel_nr.Text;
       tbtable1Suchbegriff.asstring := StUpCase(ArtikelMDBbezeichnung.Text);
       tbTable1.Post;
       ArtikelMDB.next
     end;
   end;
end.

das klappt ja auch ganz gut.
wie bekomme ich es jetzt hin, das wenn in table1 schon datensätze mit teilenummern stehen, dieser nur noch mit dem suchbegriff ergänzt wird.
das heisst ich möchte vorher die Teilenummer aus table1 mit artikel_nr aus artikelMDB vergleichen. wenn es diese nummer schon gibt soll er den datensatz nur um den suchbegriff ergänzen. wenn es die nummer nicht gibt soll er einen neue datensatz erzeugen.

markieren

Delphi-Quellcode:

if tbTable1.Locate(....) then
begin
  tbTable1.Edit;
  .....
end
else
begin
   tbTable1.append;
   ....
end;

oder tbTable1 als Datasource gleich ArtikelMDB_src zuweisen, Index und Masterfields setzen und nur noch editieren....

vielen dank für die schnelle anwort um diese uhrzeit

aber was kommt in meinem fall in die klammern?
if tbtable1.locate(tbtable1Teilenummer.asstring = ArtikelMDBartikel_nr.text) ...
klappt nicht.
fehler: inkompatible Typen: String und boolean

if tbtable1.locate('Teilenummer', ArtikelMDBartikel_nr.asString,[]) then wenn ich Dich richtig verstanden habe...

ja so hat es funktioniert

VIELEN VIELEN DANK