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 搞定收工
本站文章为和通数据库网友分享或者投稿，欢迎任何形式的转载，但请务必注明出处.
同时文章内容如有侵犯了您的权益，请联系QQ：970679559，我们会在尽快处理。