OPEN DATABASE testdbase SELECT mynotes lcNotes = "" SET ORDER TO TAG tComPrt SEEK crsbom.partnum SCAN WHILE mynotes.partnum = crsbom.partnum IF EMPTY(mynotes.notes) LOOP ENDIF lcNotes = m.lcNotes + ALLTRIM(mynotes.notes)+ space(1) ENDSCAN IF NOT EMPTY(m.lcNotes) REPLACE Notes WITH crsbom.notes + m.lcNotes IN crsbom ENDIF