>sele csrtable >go top >do while .not. eof() > rch = csrkey > sele employee > go top > locate for rch=ckey > if found() > lc = locfle > sele csrtable > replace locfle with lc > enddo > skip >enddo >I'd do it pretty much in Sergey's way, just a bit different:
* Assuming that you have index on ckey with TAG ckey SELECT csrtable REPLACE locfle WITH employee.locfle FOR seek(crstable.csrkey, "employee", "ckey") ; in crstable