以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导出问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79214)
--  作者：hqy168168
--  发布时间：2015/12/26 15:49:00
--  导出问题
请教一个导出问题：先感谢给予解决
要导出的数据表是多层表头

希望到达以下目的：
1、导出的部分列，保存为excel格式；
2、导出后保留原多层表头格式和数据格式
3、有导出对话框
4、用Exporter导出
或者使用SaveExcel方法如何达到以上四点要求呢？

问题：
如何使导出后的数据表保留原多层表头格式和数据格式？


代码：
            Dim dlg As New SaveFileDialog
            dlg.Filter= "Excel文件|*.xls"
            If dlg.ShowDialog = DialogResult.Ok Then
                Dim ex As New Exporter
                ex.SourceTableName = "工资结构"
                ex.Filter = "[年度] = \'" & Year & "\'"
                ex.Fields = "姓名,年度,工资结构_职务工资，工资结构_级别工资，工资结构_地方津补贴”

  \'这里如何设置,导出后保留原来的多层表头和数据格式呢？

                ex.Format = "Excel"
                ex.FilePath = dlg.FileName
                ex.NewTableName = Name & Year & "年工资结构“
                ex.Export()
             End If
--  作者：Hyphen
--  发布时间：2015/12/26 17:04:00
--