以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请狐爹帮忙看看动态导出字段报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13785)
--  作者：lpxjw_zyl
--  发布时间：2011/10/27 11:35:00
--  请狐爹帮忙看看动态导出字段报错

动态导出选定字段报错，请狐爹帮忙看看

Dim zd,zd1 As String
For i As Integer =  Tables("订单").LeftCol To Tables("订单").RightCol
    zd = zd & Tables("订单").Cols(i).Name & ","
Next
zd1 = zd.Trim(",")
Output.Show(zd.Trim(","))


Dim ex As New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.FilePath = "D:\\订单.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Fields =  zd1 \'指定导出字段
ex.Export() \'开始导出
--  作者：狐狸爸爸
--  发布时间：2011/10/27 11:40:00
--  

我测试你的代码，正常导出了选定字段。
--  作者：czy
--  发布时间：2011/10/27 11:59:00
--  
偶也正常。