Dim crys As New crys1() .... .... '把报表显示在form 里我不写了以下就是导出word的方法 excel 的也差不多 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' 声明变量并获取导出选项。 Dim exportOpts As New CrystalDecisions.Shared.ExportOptions() Dim diskOpts As New CrystalDecisions.Shared.DiskFileDestinationOptions() ' 设置导出格式。 exportOpts = crys.ExportOptions exportOpts.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.WordForWindows exportOpts.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile ' 设置磁盘文件选项。 diskOpts.DiskFileName = Server.MapPath(".") + "exp.doc" exportOpts.DestinationOptions = diskOpts crys.Export() End Sub
....
....
'把报表显示在form 里我不写了以下就是导出word的方法 excel 的也差不多
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' 声明变量并获取导出选项。
Dim exportOpts As New CrystalDecisions.Shared.ExportOptions()
Dim diskOpts As New CrystalDecisions.Shared.DiskFileDestinationOptions()
' 设置导出格式。
exportOpts = crys.ExportOptions
exportOpts.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.WordForWindows
exportOpts.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
' 设置磁盘文件选项。
diskOpts.DiskFileName = Server.MapPath(".") + "exp.doc"
exportOpts.DestinationOptions = diskOpts
crys.Export() End Sub