VF 根据A(2)表的内容来更新B(1)的数据

close tables
close all
clear memory
&&&&本程序是根据A(2)表的内容来更新B(1)的数据
CLOSE table
SET SAFETY off
SET DELETED on
SELECT 1
USE ip_zjoperidname200806
GOTO TOP
SELECT 2
USE ting_result
GOTO top
DO WHILE .not.eof()
SELECT 2
hylx=ALLTRIM(ip)
hylxname=ALLTRIM(tingname)
SELECT 1
GOTO top
DO WHILE .not. EOF()
replace tingname WITH hylxname FOR ip_address=hylx
enddo

SELECT 2
SKIP
ENDDO
CLOSE TABLES
close all
clear memory