排版弄好一点就知道错在哪里了

过程文件PROC1应该单独写，不能放在IF ELSE 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')
    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 sh_rkd
    Use Data\b_ckd
    Zap
    Insert Into Data\b_ckd Select * From sh_ckd
    Clea All
    Messagebox('数据库更新成功！！！',48,'信息')
Else
    Wait Clear
    Messagebox('没有找到服务器，或服务器已关闭！请稍后再试！',48,'信息')
Endif

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个加上路径，是能成功的。