那就改成这样吧, 你测试一下,我未测试
Close All
TempDireFiles='z:\data'
lcMsg = "正在检测服务器 。。。"
Wait lcMsg Window At Srow()/2, (Scols()-Len(lcMsg))/2
Nowait
If Directory(TempDireFiles)
err=.F.
On Error err=.T.
Use (TempDireFiles+'\sh_rkd') Exclu In 0
Use (TempDireFiles+'\sh_ckd') Exclu In 0
Use (TempDireFiles+'\sh_qck') Exclu In 0
Use Data\b_qck Exclu In 0
Use Data\b_rkd Exclu In 0
Use Data\b_ckd Exclu In 0
On Error
If err
Wait Clear
Messagebox('管理员在更新服务器数据!请稍后再试!!!',48,'数据库占用信息')
Else
Zap In b_qck
Insert Into b_qck Select * From sh_qck
Zap In b_rkd
Insert Into b_rkd Select * From sh_rkd
Zap In b_ckd
Insert Into b_ckd Select * From sh_ckd
Wait Clear
Messagebox('数据库更新成功!!!',48,'信息')
Endif
Else
Wait Clear
Messagebox('没有找到服务器,或服务器已关闭!请稍后再试!',48,'信息')
ENDIF
Wait Clear
Close All
[
本帖最后由 kiff 于 2013-4-27 09:17 编辑 ]