No offense, but way too much code for a simple job. Mike Yearwood showed you one solution, I prefer this variant
select targettable
set order to targettag in sourcetable
SET RELATION TO sourceexpression into sourcetable
REPLACE all field1 with sourcetable.field1 for !eof('sourcetable')
>I ended up doing this which works fine, but I really would have like to use the UPDATE. Some day...
>
>
>
>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
>
>