Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何只导出当前表的显示的列，不导出隐藏列


  共有16202人关注过本帖树形打印复制链接

主题：[求助]如何只导出当前表的显示的列，不导出隐藏列
帅哥哟，离线，有人找我吗？
migold
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00 		[求助]如何只导出当前表的显示的列，不导出隐藏列  发帖心情 Post By：2009/8/25 12:20:00 [只看该作者]

如题：[求助]如何只导出当前表的显示的列，不导出隐藏列

 回到顶部
美女呀，离线，留言给我吧！
yangming
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		  发帖心情 Post By：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
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00 		  发帖心情 Post By：2009/8/25 12:34:00 [只看该作者]

2楼楼主，
我不是问导出指定列的问题

 回到顶部
帅哥哟，离线，有人找我吗？
migold
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00 		  发帖心情 Post By：2009/8/25 12:38:00 [只看该作者]

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

通常都是只想导出所显示的列，比如，有时候只要2列，有时候7列
 回到顶部
帅哥哟，离线，有人找我吗？
migold
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00 		  发帖心情 Post By：2009/8/25 14:59:00 [只看该作者]

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

求代码，谢谢

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

求代码，谢谢

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

各位老大，请给我来句代码，谢谢：
 回到顶部
美女呀，离线，留言给我吧！
yangming
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		  发帖心情 Post By：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
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		  发帖心情 Post By：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
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00 		  发帖心情 Post By：2009/8/25 18:00:00 [只看该作者]

谢谢版主

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询