欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

怎么将查询出来的数据导出到excel表

更新时间: 2014-01-05 02:26:58 责任编辑: Author_N1

 

如何将查询出来的数据导出到EXCEL表?
我用下面的代码把表grzh里面的bdyy等于1的人全部查询出来了,我现在想把查询出来的结果导出到EXCEL里面,请问应该怎么弄
CLOSE DATA
use grzh
set filt to bdyy=1
go top
if .not. eof()
   brow fiel  dwmc:h='单位名称',sbdm:h='社保代码',xm:h='姓名',jf_n:h="起始缴费_年",jf_y:h="起始缴费_月",jfy_b:h="本年缴费月",jfjs_b:h="本年缴费基数",bdyy:h='变动标识',BZ:H="变动备注"noedit title "查询新分学生"
   else
   RE=MESSAGEBOX("无此类人员!",0+48+256,"信息窗口")
endif
close data
return

--参考方法--
SELECT grzh
lcDelimFile = PUTFILE('', '导出的Excel表名', 'XLS')
IF EMPTY(lcDelimFile)
   RETURN
ENDIF
COPY TO (lcDelimFile) TYPE XL5

--参考方法--
  thisform.grid1.recordsource='表名'
  thisform.grid1.refresh
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:26:58
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/9898/
本文WWW.DOC100.NET DOC100.NET版权所有。