又遇到麻烦了,第一次导入表没有问题,但是导入一次后,再重复操作一次就出问题了,删除表之前,我已经关闭表了,但执行ERASE命令是,出现对话框“文件正在试用“,我的代码如下:
IF USED('yg.dbf')
USE IN yg
=MESSAGEBOX('表已经被打开')
&&此句话测试表是否被打开
endif
SET DEFAULT TO d:\
gcTableName = GETFILE('DBF', 'Open Table:')
IF LEN(gcTableName)>0
USE (gcTableName) ALIAS yy_1
SET SAFETY off
LCFILE=SYS(1271,THISFORM)
IF FILE(JUSTPATH(LCFILE)+"\data\yg.dbf")
ERASE
JUSTPATH(LCFILE)+"\data\yg.dbf"
endif
SELECT * FROM yy_1 INTO TABLE
JUSTPATH(LCFILE)+"\data\yg.dbf"
SELECT yy_1
USE
thisform.refresh
=MESSAGEBOX("数据导入成功,请重新查询")
endif