以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不导出指定列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3745)
--  作者：pyh6918
--  发布时间：2009/7/30 9:57:00
--  不导出指定列
请问：Exporter的Fields属性可以导出指定字段(列)，那么有没有不导出指定字段(列)的属性或方法。
--  作者：狐狸爸爸
--  发布时间：2009/7/30 10:01:00
--  
没有
--  作者：yangming
--  发布时间：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
--  发布时间：2009/7/30 10:41:00
--  

1、我下面有十多个分支机构，他们的数据报到我这汇总。
2、表有200列，用的是外部access表，主键列为“ID”自动编号。
3、各分支机构都会有“ID"列为1的数据。
    当我将第一家的数据导入之后，我的表中已存在“ID”列为1的数据。其它家“ID”列为1的数据则无法导入。如果在导出时“ID”列不导出，这个问题就不存在了。
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2009/7/30 11:21:00
--  
成功，这个办法实在是好，多谢多谢！！也谢谢杨版。