err.prg

Visual FoxPro程序设计及其应用系统开发之发票信息管理系统

DO CASE
  CASE ERROR()=1
  XX=MESSAGEBOX("输入/输出错误，您的磁盘没有放好或磁盘已满",0+48,"信息")
  CASE ERROR()=1002
  XX=MESSAGEBOX("输入/输出错误，您的磁盘没有放好或磁盘已满",0+48,"信息")
   RETURN 
  CASE ERROR()=56
  XX=MESSAGEBOX("没有足够的磁盘空间，操作不成功",0+48,"信息") 

  other
  XX=MESSAGEBOX("操作错误,错误号:"+allt(str(error()))+",信息："+MESSAGE()+CHR(13)+"请与作者联系..."+chr(13)+"技术支持:Email:[e-mail]",0+48,"信息")
 retu
endcase