>OPEN DATABASE testdbase > >SELECT mynotes go top >lcNotes = "" >SET ORDER TO TAG tComPrt >if SEEK (crsbom.partnum) >SCAN WHILE partnum = crsbom.partnum > IF not EMPTY(mynotes.notes) > lcNotes = m.lcNotes + space(1) + ALLTRIM(mynotes.notes) endif >ENDSCAN endif >IF NOT EMPTY(m.lcNotes) > REPLACE Notes WITH notes + m.lcNotes IN crsbom >ENDIF >I made minor code changes, but I still don't see what's wrong. Will be back in 15 min.