如何使用vb.net中的文件夹打开Crystal报表

Question

这是我的报告加载功能：但是有一些问题。 报告文件位于bin文件夹之前，然后正确加载。 但我想将所有报告分别放在“报告”文件夹中

Private Function GetDeliveryChallanPrint() As DataTable
    Dim data As New DataTable
    Using Conn As New SqlConnection(ConfigurationManager.ConnectionStrings("VKDBx").ConnectionString)
        Using cmd As New SqlCommand("select * from DcMaster dm Left join DcDetail   dd  on dm.ID = dd.ID where dm.id = '" & PrinByIDTextBox.Text.ToString() & "'", Conn)
            Conn.Open()
            Using adp As New SqlDataAdapter
                adp.SelectCommand = cmd
                adp.Fill(data)

                Dim FILEPATH As String = Path.GetDirectoryName(Application.ExecutablePath + "\Reports")
                Dim DcPrint As New Rpt_DeliveryChallan
                DcPrint.Load(FILEPATH)
                DcPrint.SetDataSource(data)
                CrystalReportViewer1.ReportSource = DcPrint
                CrystalReportViewer1.Refresh()
                StatusLabel.Visible = False
                Conn.Close()
            End Using
        End Using
    End Using
End Function

Answer 1

您可以通过两种方式在VB.NET上加载Crystal报表：

使用报告对象：

Dim DcPrint As New Rpt_DeliveryChallan
DcPrint.SetDataSource(data)
CrystalReportViewer1.ReportSource = DcPrint
CrystalReportViewer1.Refresh()

注意：在这种情况下，您需要将报告嵌入到项目中。

使用ReportDocument并从文件加载报告：

 Dim FILEPATH As String = CurDir() & "\Reports\Rpt_DeliveryChallan.rpt"
 Dim DcPrint As New ReportDocument
 DcPrint.Load(FILEPATH)
 DcPrint.SetDataSource(data)
 CrystalReportViewer1.ReportSource = DcPrint
 CrystalReportViewer1.Refresh()