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

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 Settings\Prs1\My Documents\Visual Studio 2008\Projects\myCR\myCR\cr.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")