Foxtable(狐表)用户栏目专家坐堂 → 不导出指定列


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

主题:不导出指定列

帅哥哟,离线,有人找我吗?
pyh6918
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1135 积分:11099 威望:0 精华:2 注册:2008/9/1 10:45:00
不导出指定列  发帖心情 Post By:2009/7/30 9:57:00 [只看该作者]

请问:ExporterFields属性可以导出指定字段(列),那么有没有导出指定字段(列)的属性或方法。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/7/30 10:01:00 [只看该作者]

没有

 回到顶部
美女呀,离线,留言给我吧!
yangming
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/7/30 10:04:00 [只看该作者]

红色行不写就可以


Fields

字符型,指定导出字段(列),不同的字段,用逗号隔开,如果不指定,则导出所有字段。


示例三

将产品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()
'开始导出


 回到顶部
帅哥哟,离线,有人找我吗?
pyh6918
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1135 积分:11099 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2009/7/30 10:41:00 [只看该作者]

1、我下面有十多个分支机构,他们的数据报到我这汇总。
2、表有200列,用的是外部access表,主键列为“ID”自动编号。
3、各分支机构都会有“ID"列为1的数据。
    当我将第一家的数据导入之后,我的表中已存在“ID”列为1的数据。其它家“ID”列为1的数据则无法导入。如果在导出时“ID”列不导出,这个问题就不存在了。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/7/30 10:45:00 [只看该作者]

Dim Str1 As String
For Each c As Col In Tables("某某").Cols
  If c.Name <> "Id" Then
       Str1= Str1 & "," & C.Name
  End If
Next
ex.Fields = Str1.Trim(",")

 回到顶部
帅哥哟,离线,有人找我吗?
pyh6918
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1135 积分:11099 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2009/7/30 11:21:00 [只看该作者]

成功,这个办法实在是好,多谢多谢!!也谢谢杨版。

 回到顶部