SELECT luru
GO bott
jh=nm&& nm 是记录号即RECNO()
 APPEND FROM C:\data\lu1.dbf FOR t=0
 APPEND FROM C:\data\lu2.dbf FOR t=0
 APPEND FROM C:\lu3.dbf FOR t=0
 USE  C:\data\lu1.dbf EXCLUSIVE ALIAS lu1 IN 0
 SELECT lu1
 replace ALL t WITH 1
 USE
 USE  C:\data\lu2.dbf EXCLUSIVE ALIAS lu2 IN 0
 SELECT lu2
 replace ALL t WITH 1
 USE
 USE  C:\data\lu3.dbf EXCLUSIVE ALIAS lu3 IN 0
 SELECT lu3
 replace ALL t WITH 1
 USE  &&导入没有标记的记录，导入后加上标记
SELECT luru
if reccount()=jh
&&如没有导入记录则不执行以下操作
else
go jh+1
nh=jh+1
DO WHILE .not.eof()
replace nm WITH nh
     sf=sfzh
      ifbh=gwbh
      LOCATE FOR   ifbh<>luru.gwbh AND sf=sfzh
        IF FOUND()
        jf=nm
        replace fu WITH "是"
        GO i
        replace fu WITH "是"
        replace mem WITH mem+"("+STR(jf)+")"
        ELSE
        endif
  


nh=nh+1&&&&&  程序到这里出错，提示已到文件尾，但我已经加上 EOF()啊
SKIP
enddo

    我是在WINXP+vfp9