以文本方式查看主题

-  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 .非常感谢。