>>LOCAL loRefDocsAddy >>SET EXACT ON >> >>IF !USED('RefDocsAddy') THEN >> USE RefDocsAddy IN 0 >>ENDIF >> >>IF !USED('RefDocsWithAddress') THEN >> USE RefDocsWithAddress IN 0 >>ENDIF >> >>SELECT RefDocsAddy >>SCAN >> SCATTER NAME loRefDocsAddy MEMO >> SELECT RefDocsWithAddress >> Locate For RefDocsWithAddress.Number = loRefDocsAddy.Number >> IF Found() THEN >> Replace Speciality WITH loRefDocsAddy.Speciality, Location WITH loRefDocsAddy.City >> ENDIF >> SELECT RefDocsAddy >>ENDSCAN >>HTH
Make solutions, not programs!