* creating some sample data Create Cursor curParent (iid I, mNote M) Create Cursor curChild (iid I, cNote C(200)) Index On iid Tag xid For I = 1 To 20 Insert Into curParent Values (I,"") For j=1 To Rand()*20+1 Insert Into curChild Values (I, Chr(64+j)) Endfor j Endfor I * updating parent records Select curParent Scan lcNotes= "" Select curChild If Seek(curParent.iid,"curChild","xid") Scan Rest While curParent.iid = curChild.iid lcNotes = lcNotes + Alltrim(curChild.cNote) + " " Endscan Replace mNote With lcNotes In curParent Endif EndscanDoes that help you see the needed ingredients? a) An index in the child table, with which you can find the child records related to a parent record. b) two nested scan loops.
* ... * updating parent records Select curParent Scan lcNotes= "" Select curChild Scan For curParent.iid = curChild.iid lcNotes = lcNotes + Alltrim(curChild.cNote) + " " Endscan Replace mNote With lcNotes In curParent EndscanBye, Olaf.