我想在水晶报表中打印报表 [英] I want to print the report in crystal report

问题描述

我要打印报告，但显示以下错误报告加载失败"

请检查下面提到的代码并解决它们

I want to print the report but it shows the following error" Report Load Failed"

Please check the below mentioned code and solve them

Dim insql As String = "INSERT INTO patient (recptno,pname,age,address,date,phone,refby,testcode,testname,amount) VALUES (@number1,@text2,@number3,@text4,@text5,@number6,@text7,@text8,@text9,@number10)"

        cmd = New SqlCommand(insql, sqlconn)


        cmd.Parameters.AddWithValue("@number1", reciepttxt.Text)
        cmd.Parameters.AddWithValue("@text2", nametxt.Text)
        cmd.Parameters.AddWithValue("@number3", agetxt.Text)
        cmd.Parameters.AddWithValue("@text4", addresstxt.Text)
        cmd.Parameters.AddWithValue("@text5", datetxt.Text)
        cmd.Parameters.AddWithValue("@number6", phonetxt.Text)
        cmd.Parameters.AddWithValue("@text7", refbytxt.Text)
        cmd.Parameters.AddWithValue("@text8", testcodetxt.Text)
        cmd.Parameters.AddWithValue("@text9", testnametxt.Text)
        cmd.Parameters.AddWithValue("@number10", amounttxt.Text)

        sqlconn.Open()

        rowsins = cmd.ExecuteNonQuery
        sqlconn.Close()

        MessageBox.Show(rowsins.ToString & " row added")

        Dim Report As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim CrystalReportViewer As CrystalDecisions.Windows.Forms.CrystalReportViewer = New CrystalDecisions.Windows.Forms.CrystalReportViewer
        CrystalReportViewer.ActiveViewIndex = 0
        CrystalReportViewer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        CrystalReportViewer.DisplayGroupTree = False
        CrystalReportViewer.Dock = System.Windows.Forms.DockStyle.Fill
        CrystalReportViewer.Location = New System.Drawing.Point(0, 0)
        CrystalReportViewer.Name = "CrystalReportViewer1"

        Dim rptDoc As New ReportDocuments
        Dim ds As New MDataSet
        Dim sqlCon As SqlConnection
        Dim dt As New DataTable
        dt.TableName = "patient"
        sqlCon = New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=blissdata;Integrated Security=True")
        Dim da As New SqlDataAdapter("SELECT recptno,pname,age,address,date,phone,refby,testcode,testname,amount FROM patient", sqlCon)
        da.Fill(dt)
        ds.Tables(0).Merge(dt)
        Report.Load(Application.StartupPath & "/Report/")
        Report.SetDataSource(ds)
        CrystalReportViewer1.ReportSource = Report

推荐答案

嗨
您需要定义报告名称 TestReport.rpt

Hi
You need to define report name TestReport.rpt

Report.Load(Application.StartupPath & "/Report/TestReport.rpt")

谢谢，
Imdadhusen

Thanks,
Imdadhusen

这篇关于我想在水晶报表中打印报表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！