以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  过滤后的数据导出的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13026)
--  作者：狐友
--  发布时间：2011/9/24 23:52:00
--  过滤后的数据导出的问题

1，第一列是经过几个条件筛选后的，用这个命令导出，结果导出后是没筛选前的数据

Dim ex As New Exporter
ex.SourceTableName = "表a" \'指定导出表
ex.FilePath = "c:\\" \'指定目标文件路径
ex.Format = "Fixed" \'导出格式为固定宽度的文本文件
ex.Fields = "第一列"
ex.Header= "False"
ex.NewTableName = "888" \'指定文件名,注意无须扩展名
ex.Export() \'开始导出

 

2，导出后的文件不需要列名，ex.Header="False" 这个没起作用
--  作者：mr725
--  发布时间：2011/9/24 23:59:00
--  

不用事先筛选，在代码中加上

ex.Filter = "[第一列] = \'要筛选的内容\' "

--  作者：czy
--  发布时间：2011/9/25 0:15:00
--  

如果是手工筛选后导出,参考代码:

 

Dim ex As New Exporter
ex.SourceTableName = "表a" \'指定导出表
ex.FilePath = "c:\\" \'指定目标文件路径
ex.Format = "Fixed" \'导出格式为固定宽度的文本文件
ex.Fields = "第一列"
ex.Header= "False"
ex.NewTableName = "888" \'指定文件名,注意无须扩展名
ex.Filter = Tables("表A").Filter
ex.Export() \'开始导出