select  0 
create cursor upd (rec N( 7 ))
index on rec tag rec
use Table2 in  0  shared && таблица-приемник
select  0 
use Table1 shared && таблица-источник
browse valid upd()

select upd
scan
 select Table1
 go upd.rec
 scatter memvar
 insert into Table2 from memvar
endscan
use in upd
use in Table1
use in Table2
* ...

FUNCTION upd
if !seek(recno([Table1]),[upd])
 insert into upd values (recno([Table1]))
endif