以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- foxtable 多个表批量导出为excel (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11794)
|
-- 作者:mqr66
-- 发布时间:2011/8/11 22:48:00
-- foxtable 多个表批量导出为excel
在foxtable一个项目中,有多个表,现在我想把这些表全部导出为excel格式,却只能一个一个表的导出,请问有没有办法想易表一样, 我只需要导出一次,就可以把这些表全部导出。
|
-- 作者:mr725
-- 发布时间:2011/8/12 0:19:00
--
For
Each tb As
Table
In
Tables
导出代码····
Next
|
-- 作者:mqr66
-- 发布时间:2011/8/17 23:07:00
--
我在输入窗口输入如下代码:
For Each tb As DataTable In DataTables Next tb.export()
报错,未声明名称“tb"是什么意思?我明明声明了呀? 此主题相关图片如下:125.jpg
|
-- 作者:e-png
-- 发布时间:2011/8/17 23:33:00
--
拜托了: 看看帮助文件啊。 For Each tb As Table In Tables Dim ex as New Exporter ex.SourceTableName = "tb" ex.FilePath = "c:\\tb.xls" \' ex.Format = "Excel" ex.Export() \'开始导出 Next
|
-- 作者:mqr66
-- 发布时间:2011/8/21 23:06:00
--
我在命令窗口输入如下代码 :
Dim tbx As Table For Each tbx In Tables Dim ex As New Exporter ex.SourceTableName = "tbx" \'指定导出表 ex.FilePath = "c:\\Data\\tbx.xls" \'指定目标文件 ex.Format = "Excel" \'导出格式为Excel ex.Fields = "日期,客户,数量,单价" \'指定导出字段 ex.Filter = "[产品] = \'PD01\'" \'指定导出条件 ex.Export() \'开始导出 Next
结果还是报错“不在在名称为tbx 的datatable" ,我实在想不起来我错那儿了,请高手明示。在此先谢谢了。附件上传的分别为项目文件和报错抓图。
|
-- 作者:czy
-- 发布时间:2011/8/21 23:53:00
--
Dim tbx As Table For Each tbx In Tables Dim ex As New Exporter ex.SourceTableName = tbx.Name \'指定导出表 ex.FilePath = "c:\\Data\\tbx.xls" \'指定目标文件 ex.Format = "Excel" \'导出格式为Excel ex.Export() \'开始导出 Next
|
-- 作者:mqr66
-- 发布时间:2011/8/22 15:55:00
-- [原创]三角箭头有时有,有时无
谢谢
czy ,我终于明白了,变量不能用双引号引起来,而且 少了一个name. ex.SourceTableName = tbx.Name .非常感谢。
|