谢谢 我再试试

proc proc1
      use z:\data\sh_rkd.dbf exclu in 0
      use z:\data\sh_ckd.dbf exclu in 0
           =aerror(myarray)

Close All
TempDireFiles='z:\data'
lcMsg = "正在检测服务器 。。。"
Wait lcMsg Window At Srow()/2, (Scols()-Len(lcMsg))/2  Nowait
If Directory('&TempDireFiles')
    On Error Do proge\proc1
    If myarray(1)=1705
        Messagebox('管理员在更新服务器数据！请稍后再试！！！',48,'数据库占用信息')
    Else
        Use Data\b_qck
        Zap
        Insert Into Data\b_qck Select * From z:\Data\sh_qck
        Use Data\b_rkd
        Zap
        Insert Into Data\b_rkd Select * From sh_rkd
        Use Data\b_ckd
        Zap
        Insert Into Data\b_ckd Select * From sh_ckd
        Clea All
        Messagebox('数据库更新成功！！！',48,'信息')
    Endif
Else
    Wait Clear
    Messagebox('没有找到服务器，或服务器已关闭！请稍后再试！',48,'信息')
Endif
无论服务器Z盘上的二个共享数据有无打开，都提示

Close All
TempDireFiles='z:\data'
lcMsg = "正在检测服务器 。。。"
Wait lcMsg Window At Srow()/2, (Scols()-Len(lcMsg))/2  Nowait
If Directory('&TempDireFiles')
    On Error Do proc1
    If myarray(1)=1705
        Messagebox('管理员在更新服务器数据！请稍后再试！！！',48,'数据库占用信息')
    Else
        Use Data\b_qck
        Zap
        Insert Into Data\b_qck Select * From z:\Data\sh_qck
        Use Data\b_rkd
        Zap
        Insert Into Data\b_rkd Select * From sh_rkd
        Use Data\b_ckd
        Zap
        Insert Into Data\b_ckd Select * From sh_ckd
        Clea All
        Messagebox('数据库更新成功！！！',48,'信息')
    Endif
Else
    Wait Clear
    Messagebox('没有找到服务器，或服务器已关闭！请稍后再试！',48,'信息')
ENDIF
proc proc1
      use z:\data\sh_rkd.dbf exclu in 0
      use z:\data\sh_ckd.dbf exclu in 0
           =aerror(myarray)
结果一样！

Close All
TempDireFiles='z:\data'
lcMsg = "正在检测服务器 。。。"
Wait lcMsg Window At Srow()/2, (Scols()-Len(lcMsg))/2  Nowait
If Directory('&TempDireFiles')
    Use Data\b_qck
    Zap
    Insert Into Data\b_qck Select * From z:\Data\sh_qck
    Use Data\b_rkd
    Zap
    Insert Into Data\b_rkd Select * From z:\data\sh_rkd
    Use Data\b_ckd
    Zap
    Insert Into Data\b_ckd Select * From z:\data\sh_ckd
    Clea All
    Messagebox('数据库更新成功！！！',48,'信息')
Else
    Wait Clear
    Messagebox('没有找到服务器，或服务器已关闭！请稍后再试！',48,'信息')
Endif
 不加过程我就在下面2个加上路径，是能成功的。

Close All
TempDireFiles='z:\data'
lcMsg = "正在检测服务器 。。。"
Wait lcMsg Window At Srow()/2, (Scols()-Len(lcMsg))/2  Nowait
If Directory('&TempDireFiles')
    Use Data\b_qck
    Zap
    Insert Into Data\b_qck Select * From z:\Data\sh_qck
    Use Data\b_rkd
    Zap
    Insert Into Data\b_rkd Select * From z:\data\sh_rkd
    Use Data\b_ckd
    Zap
    Insert Into Data\b_ckd Select * From z:\data\sh_ckd
    Clea All
    Messagebox('数据库更新成功！！！',48,'信息')
Else
    Wait Clear
    Messagebox('没有找到服务器，或服务器已关闭！请稍后再试！',48,'信息')
Endif
  这样不出错，但有可能出现共享盘里的 z:\data\sh_rkd z:\data\sh_ckd 2个表被别人打开不能连接数据成功了！
  proc proc1
      use z:\data\sh_rkd.dbf exclu in 0
      use z:\data\sh_ckd.dbf exclu in 0
  我的想法是先判断有无人已经占用了。

谢谢 我试试哈

测试成功 太谢谢了 已解决！！！！