用vf来更新两个表之间的记录

&&&&本程序是根据A(2)表的内容来更新B(1)的数据
CLOSE table
SET SAFETY off
SET DELETED on
SELECT 1
USE sj2008new
GOTO TOP
SELECT 2
USE lizhiwuyxtypenew
GOTO top
&&ZAP
DO WHILE .not.eof()
SELECT 2
hylx=ALLTRIM(ywname)
jx=ALLTRIM(jxtype)
SELECT 1
GOTO top
DO WHILE .not. EOF()
replace ywtype WITH hylx FOR jxtype=jx
enddo
SELECT 2
SKIP
ENDDO
CLOSE TABLES

DO upd1