proc proc1
      use z:\data\sh_rkd.dbf exclu in 0
      use z:\data\sh_ckd.dbf exclu in 0
出错后，在此打开这两个表的目的是什么

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
  我的想法是先判断有无人已经占用了。

那就改成这样吧， 你测试一下，我未测试
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 编辑 ]

谢谢 我试试哈

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

请问如何根据D的大小，螺距P以及公差等级得到公差数值啊，求各位大神指点程序？

参与一下，以后学习