求助：PACK命令在WIN10里执行不了？

下面的代码是把GRID表里的临时数据刷新到真正的 Voucher 表里，单机版的，在WIN7里执行没有问题，但编译后放到WIN10电脑里就出错了，提示文件已经存在，后来没办法，只能做删除标记了，不做彻底删除了，只能放弃 PACK 命令了，望大狭能支招。

 Thisform.LockScreen= .T.
 This.RecordSource=""
 Wait Windows "凭证数据保存中..." AT Srows()/2,Scols()/2  Nowait
 Select Alltrim(帐套)+Alltrim(会计期) AS MyKey FROM Temp_Q_Voucher Noconsole Distinct Into Cursor Temp_PZ_Key
 Delete From Voucher Where Alltrim(帐套)+Alltrim(会计期) IN(Select MyKey From Temp_PZ_Key)
 Select Voucher
 Append From Temp_Q_Voucher
 Select Voucher
 Use
 USE Voucher IN 0 Exclusive  
 Select Voucher
 Pack  &&就这个命令，用在WIN10里，通过不了
 Select Voucher
 USE
 IF !Used('Temp_Q_Voucher')
     USE Temp_Q_Voucher IN 0 Exclusive
 ENDIF   
 SELECT Temp_Q_Voucher
 ZAP
 GO TOP
 WAIT CLEAR
 This.Init()
 Thisform.LockScreen= .F.

奇怪的是清空GRID临时表却可以用ZAP命令，没有出错问题。

[此贴子已经被作者于2021-5-14 17:59编辑过]