以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何只导出当前表的显示的列，不导出隐藏列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4039)
--  作者：migold
--  发布时间：2009/8/25 12:20:00
--  [求助]如何只导出当前表的显示的列，不导出隐藏列
如题：[求助]如何只导出当前表的显示的列，不导出隐藏列
--  作者：yangming
--  发布时间：2009/8/25 12:29:00
--  

示例三

将产品PD01的订单导出为Excel格式保存，并只导出指定的列：

Dim ex as New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.FilePath = "c:\\Data\\订单.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Fields = "日期,客户,数量,单价" \'指定导出字段
ex.Filter = "[产品] = \'PD01\'" \'指定导出条件
ex.Export() \'开始导出
--  作者：migold
--  发布时间：2009/8/25 12:34:00
--  
2楼楼主，
我不是问导出指定列的问题
--  作者：migold
--  发布时间：2009/8/25 12:38:00
--  

导出指定列这个在我们这边的实际工作上没什么意义

通常都是只想导出所显示的列，比如，有时候只要2列，有时候7列
--  作者：migold
--  发布时间：2009/8/25 14:59:00
--  

提取表的显示界面所显示的列名，列标题 (不包含隐藏的列)

求代码，谢谢

提取显示界面的隐藏的列的列名，列标题 （不包含所显示的列名

求代码，谢谢

我用来放到导出指定列中的代码

各位老大，请给我来句代码，谢谢：
--  作者：yangming
--  发布时间：2009/8/25 15:19:00
--  
Dim s As String
For Each cl As Col In Tables( "订单").Cols \'排除隐藏列
   If cl.Visible Then
If s =""
s = cl.Name
Else
 s = s &","& cl.Name
  End If
 End If
Next
[此贴子已经被作者于2009-8-25 15:20:11编辑过]
--  作者：yangming
--  发布时间：2009/8/25 15:32:00
--  
Dim s As String
For Each cl As Col In Tables( "订单1").Cols \'排除隐藏列
   If cl.Visible Then
If s ="" Then
s = cl.Name
Else
 s = s &","& cl.Name
  End If
 End If
Next
Dim ex as New Exporter
ex.SourceTableName = "订单1" \'指定导出表
ex.FilePath = "c:\\Data\\订单.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
 ex.Fields =s \'指定导出字段
ex.Filter = "[产品] = \'PD01\'" \'指定导出条件
ex.Export() \'开始导出
--  作者：migold
--  发布时间：2009/8/25 18:00:00
--  
谢谢版主