贴一段代码?为何老提示已到文件尾?
SELECT luruGO 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