SELECT crsBomNotes cNotes="" set order to tag part_num seek crsMLE.PartNum SCAN WHILE crsBomNotes.PartNum = crsMLE.PartNum if empty(crsBomNotes.Notes) loop endif cNotes= cNotes+ ALLTRIM(crsBomNotes.Notes)+space(1) ENDSCAN if not empty(cNotes) REPLACE Notes WITH crsMLE.notes+cNotes IN crsMLE endif