如何在VB.NET中以PDF格式编写水晶报表

发布时间：2020-12-17 07:27:32 所属栏目：百科来源：网络整理

导读：Imports CrystalDecisions.CrystalReports.EngineImports CrystalDecisions.SharedImports CrystalDecisions.WebImports CrystalDecisions.ReportSourceImports CrystalDecisions.CrystalReportsImports System.IOImports System.NetImports System.Net.Mail

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.Web
Imports CrystalDecisions.ReportSource
Imports CrystalDecisions.CrystalReports

Imports System.IO
Imports System.Net
Imports System.Net.Mail

Public Class Form1

Dim cryRpt As New ReportDocument

Private Sub Form1_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load

    cryRpt.Load("C:Documents and SettingsPrs1My DocumentsVisual Studio 2008ProjectsmyCRmyCRcr.rpt")
    CrystalReportViewer1.ReportSource = cryRpt

    CrystalReportViewer1.Refresh()

    Try
        Dim CrExportOptions As ExportOptions
        Dim CrDiskFileDestinationOptions As New  _
        DiskFileDestinationOptions()
        Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
        CrDiskFileDestinationOptions.DiskFileName = _
                                    "C:crystalExport.pdf"
        CrExportOptions = cryRpt.ExportOptions
        With CrExportOptions
            .ExportDestinationType = ExportDestinationType.DiskFile
            .ExportFormatType = ExportFormatType.PortableDocFormat
            .DestinationOptions = CrDiskFileDestinationOptions
            .FormatOptions = CrFormatTypeOptions
        End With
        cryRpt.Export()
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try

End Sub

结束班

我尝试了上面的代码.我的项目文件夹中有一个Windows窗体和一个Crystal报表文件(cr.rpt).我正在使用Oracle 10G作为数据库.
但是我收到一条错误,说“登录失败”. ([错误说明]图片：http://pho.to/Zv6t)

请帮忙.

解决方法

终于从 here找到了解决方案

唯一的问题是,我需要在运行时设置数据库凭据才能使Crystal Report正常工作.

cryRpt.SetDatabaseLogon("user","password","server","database")

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!