高考问答桃花扇的主要内容:关于FOXPRO错误信息的急救～～！！
来源：百度文库 编辑：高考问答 时间：2024/05/08 04:57:03
求各位大虾帮忙，我的FOXPRO2.5有运行时出现“Beginning of file encountered”提示，这是说“遇到文件头”，我的程序就中断了，现请各位达人帮下手，要怎样修改才能修复呀，“遇到文件头是”什么意思呀？？我的EMAIL: ncb2@163.com,谢谢！！！！
***新增处理退料
SELE 6
USE &KDB2A\KDB2A
GO BOTT
DO WHILE RECNO()>300
SKIP -100
IF D107<TJ_DATE
SKIP -100
IF D107<TJ_DATE
EXIT
ENDIF
ENDIF
ENDDO
IF RECNO()<300
GO TOP
ENDIF
***COPY TO KDB2A-X NEXT 999999 FOR D107=TJ_DATE .AND. TL_FLAG<>0
COPY TO KDB2A-X FOR D107=TJ_DATE .AND. TL_FLAG<>0
*
SELE 6
USE KDB2A-X
*
SELE 1
GO TOP
LOCATE FOR F111=TJ_DATE
IF FOUND()
DO WHILE .NOT. FLOCK()
ENDDO
DELETE ALL FOR F111=TJ_DATE
UNLOCK
ENDIF
*
***新增处理退料
SELE 6
USE &KDB2A\KDB2A
GO BOTT
DO WHILE RECNO()>300
SKIP -100
IF D107<TJ_DATE
SKIP -100
IF D107<TJ_DATE
EXIT
ENDIF
ENDIF
ENDDO
IF RECNO()<300
GO TOP
ENDIF
***COPY TO KDB2A-X NEXT 999999 FOR D107=TJ_DATE .AND. TL_FLAG<>0
COPY TO KDB2A-X FOR D107=TJ_DATE .AND. TL_FLAG<>0
*
SELE 6
USE KDB2A-X
*
SELE 1
GO TOP
LOCATE FOR F111=TJ_DATE
IF FOUND()
DO WHILE .NOT. FLOCK()
ENDDO
DELETE ALL FOR F111=TJ_DATE
UNLOCK
ENDIF
*
把你的程序贴出来
还有说明一下，什么情况出现的