If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "一级一览表"
ex.FilePath = dlg.FileName '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "" '指定导出字段
ex.NewTableName = "一级一览表"
ex.Export() '开始导出
ex = New Exporter “每次都要新建一个Exporter
ex.SourceTableName = "二级一览表"
ex.FilePath = dlg.FileName '指定目标文件
ex.Format = "Excel" '导出格式为Exc
ex.Fields = "" '指定导出字段
ex.NewTableName = "二级一览表"
ex.Export() '开始导出
'
加好友 
发短信
Post By：2021/3/28 20:35:00 [显示全部帖子]
