以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]筛选后的表格怎么导出excel  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101856)

--  作者:ufo20085
--  发布时间:2017/6/8 14:50:00
--  [求助]筛选后的表格怎么导出excel
我有一个表格,有一些比较复杂的筛选条件,利用tables().filter筛选以后得到数据
然后利用new exporter导出EXCEL文件的时候,不是导出我筛选出的数据,而是整个datatable的数据。
我只想导出tables().filter筛选后的数据,命令该怎么写呢?(不想用exporter里的筛选命令,因为我已经提前筛选好了)

--  作者:有点蓝
--  发布时间:2017/6/8 15:45:00
--  
exporter可以设置条件的

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