嘗試在Crystal Viewer中調用報表時出錯

Question

嘗試從VB中的其他表單在Crystal Viewer中調用此報表時，我始終收到阻止錯誤。 有人可以協助嗎？

 Private Sub Command1_Click()
     Dim crlApp As New CRAXDRT.Application
     Dim crlRep As CRAXDRT.Report

     Set crlRep = crlApp.OpenReport("E:\Finesse\vbDev\rpts\peemptime.rpt")
     Set Form1.CRViewer.ReportSource = cr1Rep
     Form1.CRViewer.ViewReport
     Form1.Show
 End Sub

Answer 1

    crlApp = New ReportDocument
    crlApp.Load(Server.MapPath("E:\Finesse\vbDev\rpts\peemptime.rpt"))
    crlApp.SetDataSource (Your Data Source)
    CRViewer.ReportSource = crlApp 
    crlApp.ExportToHttpResponse(ExportFormatType.PortableDocFormat, Response, True, "ExportedReport")

    OR
    crlApp.ExportToHttpResponse(ExportFormatType.WordForWindows, Response, True, "ExportedReport")
    OR
    crlApp.ExportToHttpResponse(ExportFormatType.Excel, Response, True, "ExportedReport")