![](images/userface/image1.gif)
加好友 发短信
等级:小狐
帖子:376
积分:4189
威望:0
精华:0
注册:2008/9/1 14:18:00
|
请狐爹帮忙看看动态导出字段报错 Post By: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() '开始导出
|
|