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

指针达到最后一条记录时，eof()为.f.,这时再进行skip 时，eof()为.t.就会出现提示，解决的方法，再skip前再判断一次：
nh=nh+1&&&&&  程序到这里出错，提示已到文件尾，但我已经加上 EOF()啊
IF !EOF()
   SKIP
ENDIF
enddo

if !eof()
skip
else
retu
endi

因为你用了替换命令repl  用此命令再用skip命令 会出错，用完repl后必须重新定位记录 如 go i