使用ASP.NET上的Crystal Reports生成报告

就是这样。

在ASP.NET中使用多个表创建Crystal Report:

http://www.highoncoding.com/Articles/556_Creating_Crystal_Report_with_Multiple_Tables_in_ASP_NET.aspx

将Crystal Reports导出为不同的文件格式:

http://www.highoncoding.com/Articles/553_Export_Crystal_Reports_to_Different_File_Formats.aspx

Imports CrystalDecisions
Imports CrystalDecisions.CrystalReports
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.IO

Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub LinkButton1_Click(sender As Object, e As EventArgs) Handles LinkButton1.Click

        OpenPDF(Request.ApplicationPath + "/Reports/Report.pdf")

    End Sub


    Private Sub OpenPDF(downloadAsFilename As String)
        Dim RptDoc As New ReportDocument()
        RptDoc.Load(Server.MapPath(Request.ApplicationPath + "/Reports/myreport.rpt"))
        RptDoc.SetDatabaseLogon("user", "password", "server", "database")

        Dim stream As New BinaryReader(RptDoc.ExportToStream(CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat))
        Response.ClearContent()
        Response.ClearHeaders()
        Response.ContentType = "application/pdf"
        Response.AddHeader("content-disposition", Convert.ToString("attachment; filename=") & downloadAsFilename)
        Response.AddHeader("content-length", stream.BaseStream.Length.ToString())
        Response.BinaryWrite(stream.ReadBytes(Convert.ToInt32(stream.BaseStream.Length)))
        Response.Flush()
        Response.Close()
    End Sub
End Class