VFP 愛用者社區

[zfgg]

有一个表单，数据环境有Curricula.dbf。另外还有一个自由表供这个表单用，由getfile()获得，其实是另外一个Curricula.dbf表，结构相同，其目的是将getfile()获得的Curricula.dbf表数据导入到数据环境的Curricula.dbf表中。
当在表单中第一次执行程序时，运行正常。若再次执行时，在运行到USE _filePath+"&gatable1" EXCLU时，报错：“文件正在使用”。用USE IN SELECT("&gatable1") 、USE IN SELECT(0)、USE IN "&gatable1"
均无效。最后在程序结束用“CLOSE TABLES”语句，多次运行不报错了。CLOSE TABLES语句能关闭很多表，这样用，虽然运行正常，但是心理不踏实。另外Curricula.dbf表是数据环境的共享表，程序运行时，提示要独占。其原因不明。
请各位大师帮助我分析，指出解决的办法。在此多谢了。

我的程序如下：
_lenfileName=getfile("Curricula:DBF","","确定")
_file=rat("\",_lenfileName)
_filePath= ALLTR(substr(_lenfileName,1,rat("\",_lenfileName)))
if _file=0
retu
else
_shofile=substr(_lenfileName,_file+1)
declar gatable1(1)
=adir(gatable1,"&_shofile")
ENDIF
IF "&gatable1" # "CURRICULA.DBF" OR _filePath = _PATH_LOC
=MESSAGEBOX("请找 Curricula.dbf文件，再试！或者Curricula.dbf在同一个目录下！",16,"错误")
return
ELSE
IF !USED("&gatable1")
SELECT 0
USE _filePath+"&gatable1" EXCLU &&不用EXCLU 报错
ENDIF
SELECT "&gatable1"
SELECT * FROM _filePath+"&gatable1" WHERE csid=_bh AND signs=_comboUser INTO table _PATH_LOC+"tmpCurri.dbf"
** USE IN "&gatable1"
IF !USED("tmpCurri")
USE _PATH_LOC+"tmpCurri.dbf" IN 0
ENDIF
SELECT tmpCurri
IF RECCOUNT()>=1
IF !USED("Curricula")
SELECT 0
USE _PATH_LOC+"Curricula.dbf" EXCLU
ENDIF
SELECT Curricula
LOCATE for csid=_bh and alltr(signs)=_comboUser
IF FOUND()
=MESSAGEBOX(_comboUser+" 写的学时分配表存在，不需要导入！",48,"Curricula")
ELSE
APPEND FROM _PATH_LOC+"tmpCurri.dbf"
=messagebox( ALTERDATA_LOC,48,caption1_loc)
ENDIF
ELSE
=messagebox( _comboUser+" 写的学时分配表没有！",48,caption1_loc)
ENDIF
USE IN tmpCurri
ERASE _PATH_LOC+"tmpCurri.dbf"
CLOSE TABLES

[dkfdtf]

....

[yang1032]

若要再次執行
注意你開幾個檔,就要關閉幾個檔