以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  利用邮件上报数据问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80590)
--  作者：zhangc2000
--  发布时间：2016/1/26 22:06:00
--  利用邮件上报数据问题
请问：我需要利用下面代码，将“订单A”和“订单B”两个导出表同时通过“订单.mdb”文件导出，怎样写代码？
Dim ex as New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.filepath = "c:\\Data\\订单.mdb" \'指定目标文件
ex.Export() \'开始导出

谢谢
--  作者：大红袍
--  发布时间：2016/1/27 0:16:00
--  

Dim ex As New Exporter
ex.SourceTableName = "表C" \'指定导出表
ex.filepath = "d:\\Data\\订单.mdb" \'指定目标文件
ex.Export() \'开始导出

ex = New Exporter
ex.SourceTableName = "表B" \'指定导出表
ex.filepath = "d:\\Data\\订单.mdb" \'指定目标文件
ex.Export() \'开始导出
--  作者：zhangc2000
--  发布时间：2016/1/27 21:47:00
--  
执行上述代码后出现“至少一个参数没有被指定值。”，是否还缺代码？
--  作者：大红袍
--  发布时间：2016/1/27 21:48:00
--  
贴出你写的代码。
--  作者：zhangc2000
--  发布时间：2016/1/28 22:05:00
--  
代码如下：
Dim ex As New Exporter
ex.SourceTableName = "表A" \'\'指定导出表
ex.FilePath = "d:\\foxtable\\备忘录.mdb" 
ex.Filter = "[企业代码] = \'" & dm & "\'"
ex.Export()
ex = New Exporter
ex.SourceTableName = "表B" \'指定导出表
ex.FilePath = "d:\\foxtable\\备忘录.mdb" 
ex.Filter = "[企业代码] = \'" & dm & "\'"
ex.Export()
--  作者：大红袍
--  发布时间：2016/1/28 22:26:00
--  

表a或者表b，没有这个列 [企业代码]