>>select targettable >>set order to targettag in sourcetable >>SET RELATION TO sourceexpression into sourcetable >>REPLACE all field1 with sourcetable.field1 for !eof('sourcetable')>>
>>> >>>SELECT iAccts >>>SCAN >>> SELECT crsFundAcctDisc >>> LOCATE FOR crsFundAcctDisc.Acct_ID == iAccts.Acct_ID >>> DO WHILE .T. >>> IF FOUND() >>> REPLACE iAccts.FootNote WITH ALLTRIM(iAccts.FootNote) + '('+ ALLTRIM(STR(crsFundAcctDisc.FootNote))+')' >>> CONTINUE >>> ELSE >>> EXIT >>> ENDIF >>> ENDDO >>> SELECT iAccts >>>ENDSCAN >>> >>>