*****这是form1的unload的代码：
CLOSE DATABASES all

nanswer=4+16+256
this.Visible= .F.
MESSAGEBOX('贝份文件吗？',nanswer,'系统提示')
DO CASE
      CASE=6
           
           COPY FILE d:\foxpro\2013zm\w2014zm.dbf to d:\w2014zm.dbf &&在命令窗口实行此命令，文件复制成功，而在程序中却不能复制成功
                CASE=7
         ENDCASE

this.Visible= .F.??

不是复制不成功  而是没有机会执行该语句吧   do case 是咋用的  有些忘了

有CASE=6 CASE=7吗?  看来楼主在哪抄的代码吧

这也行?

楼主应该加强基础知识的学习。

ASN=MESSAGEBOX('贝份文件吗？',nanswer,'系统提示')
CASE ASN=6
...
CASE ASN=7
..

收到的鲜花

• tlliqi 于 2015-04-15 21:13 送鲜花  10朵   附言：加分

DO CASE
      CASE=6   &&代码错误,一下语句不能执行.
           
           COPY FILE d:\foxpro\2013zm\w2014zm.dbf to d:\w2014zm.dbf &&在命令窗口实行此命令，文件复制成功，而在程序中却不能复制成功
                CASE=7
         ENDCASE