用zap清空数据表出现的问题

[geny]

set safe off
set excl off
yn=messagebox("初始化数据将使用所有数据丢失，您真的要初始化数据库吗？",4+32,"数据初始化")
if yn=7
return
thisform.release
endif
thisform.olecontrol1.value=1
wait windows "正在准备清空数据，请稍后...." timeout 4
***初始化数据?
thisform.label1.caption="正在初始化hycz.dbf，请稍后...."
thisform.Olecontrol1.value=20
select hycz
zap
thisform.label1.caption="正在初始化hyjbk.dbf，请稍后...."
thisform.Olecontrol1.value=40
select hyjbk
zap
thisform.label1.caption="正在初始化hyxf.dbf，请稍后...."
thisform.Olecontrol1.value=60
select hyxf
............
为什么总是出现：file must be opened exclusively啊？
我前面已经设置了set excl off
请专家指导一下。

[noproblem12]

heihei ,

nod!

jie fen

[jiaxingxing]

可能因为在你的数据环境中的表设置的为exclusive=.f.
要不你就用
close database
use 表 excl
zap
…………

[ccbzzp]

select hycz
zap
改為
SELECT 0
USE HYCZ EXCL
ZAP

[magnetmoon]

close table all
use hycz in 0 excl
use hyjbk in 0 excl
...
thisform.label1.caption="正在初始化hycz.dbf，请稍后...."
thisform.Olecontrol1.value=20
select hycz
zap
thisform.label1.caption="正在初始化hyjbk.dbf，请稍后...."
thisform.Olecontrol1.value=40
select hyjbk
zap
...

[ccbzzp]

set excl ON

散分吧