主题：foxtable 多个表批量导出为excel

在foxtable一个项目中，有多个表，现在我想把这些表全部导出为excel格式，却只能一个一个表的导出，请问有没有办法想易表一样， 我只需要导出一次，就可以把这些表全部导出。

For Each tb As Table In Tables

 

   导出代码····

 

Next

 

我在输入窗口输入如下代码：

For Each tb As DataTable In DataTables
Next
tb.export()

 

 

 

报错，未声明名称“tb"是什么意思？我明明声明了呀？

此主题相关图片如下：125.jpg

  拜托了：  看看帮助文件啊。
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

我在命令窗口输入如下代码 ：

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" ,我实在想不起来我错那儿了，请高手明示。在此先谢谢了。附件上传的分别为项目文件和报错抓图。

 

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

谢谢

czy

，我终于明白了，变量不能用双引号引起来，而且 少了一个name.  ex.SourceTableName = tbx.Name .非常感谢。