newbie vraag: kopieeren naar veld

rtames wrote:

ik heb een tabel met een codeveld en een projectnr. welke combinatie 1 maal voorkomt. hiernaast heb ik in deze tabel een tekstveld.
Dit tekstveld wil ik vullen middels een functie met gegevens uit een tweede tabel.
In deze tweede tabel kan het codeveld in combinatie met het projectnr. meerdere malen voorkomen. Ik wil vanuit deze tweede tabel zoeken naar de combinatie codeveld - projectnr. en van elk record het veld "Name" achter elkaar plakken in het tekstveld van de eerste tabel.

hoe kan ik dit het makkelijkste voor elkaar krijgen?

tabel1.reset;
if tabel1.findset(true,false) then begin
  repeat
    tabel2.reset;
    tabel2.setrange(codeveld,tabel1.codeveld);
    tabel2.setrange(projectnr.,tabel1.projectnr);
    if tabel2.findset(false,false) then begin
      repeat
        tabel1.tekstveld := tabel1.tekstveld + tabel2.name;
      until tabel2.next = 0;
      tabel1.modify(true);
    end;
  until tabel1.next = 0;
end;