首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

请教一个有关问题

2012-02-13 
请问一个问题我建了一个表单。上面有一个命令按钮“导出到EXCEL”这个命令按钮的代码如下:nanswermessagebox

请问一个问题
我建了一个表单。上面有一个命令按钮“导出到EXCEL”
    这个命令按钮的代码如下:
   
nanswer=messagebox( '确定输出到EXCEL表格吗? ',1, '提示窗 ')
do   case
  case   nanswer=1
        lcfile=PUTFILE( '另存为 ',a, 'xls ')
        IF   !EMPTY(lcfile)
            selec   xx
            copy   to   &lcfile   type   xls
          ELSE
            MESSAGEBOX( '您取消了此操作 ',0, '提示窗 ')
            RETURN
          ENDIF
  case   nanswer=2
          RETURN
endcase

但是运行的时候其他都很正常。惟独按这个按钮的时候他提示
  命令中含有不能识别的短语或关键字

挂起后指在     copy   to   &lcfile   type   xls   这一行。
以前试过这个按钮,没有什么问题。
后来我增加了一些功能后不知道为什么会这样了。
请高手指教!!!!

[解决办法]
lcfile=PUTFILE( '另存为 ',a, 'xls ')中的a加上引号
[解决办法]
这段代码肯定好用,你参考一下吧。


IF !USED( '表名 ')
RETURN
ENDIF
SELECT 表名
lcExtName= 'XLS '
IF RECCOUNT( '表名 ')> 65535 &&如果是VFP9.0以下,此处改为16383
MESSAGEBOX( '当前记录数大于65535,EXCEL最多支持65535条记录。 '+SPACE(5)+CHR(10)+CHR(10)+ '所以程序将导出扩展名为 .CSV 的文件! ',48, '信息提示 ')
lcExtName= 'CSV '
ENDIF
lcDelimFile = PUTFILE( ' ', 'Excel表名 ', lcExtName)
IF EMPTY(lcDelimFile)
RETURN
ENDIF
IF lcExtName= 'XLS '
lcExtName= 'XL5 '
ENDIF
COPY TO (lcDelimFile) TYPE &lcExtName
GO TOP
MESSAGEBOX( "导出完成!文件位置: "+CHR(10)+CHR(10)+(lcDelimFile)+SPACE(3),64, "信息提示 ")

热点排行