Active Report 导出功能，activereport

Active Report 导出功能，activereport

在网上查了不少资料，有个讲解比较完整的方案，我在系统中一试，发现并不好用，在使用导出功能，必须是引用几个命名空间

接下来，导出功能就变得更加简单

                Dim xlsExport1 As New DataDynamics.ActiveReports.Export.Xls.XlsExport()
                Dim saveDlg As New SaveFileDialog()
                saveDlg.Filter = "Excel文件(*.xls)|*.xls"
                saveDlg.ShowDialog()


                Dim sFileName As String = saveDlg.FileName.Trim
                If String.IsNullOrEmpty(sFileName) = True Then
                    MsgBox("没有输入导出文件名，系统不能导出！", MsgBoxStyle.Exclamation)
                    Return
                End If
                xlsExport1.Export(rpt.Document, sFileName)
                xlsExport1 = Nothing

导出Excel 搞定收工