• 0
ehab ahmeb

مشكله عند تشغيل الكريستال ريبورت مع vb 2017

سؤال

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        TextBox1.Text = Request.QueryString("ID")
        'TextBox2.Text = "2"
        If Not IsPostBack Then

            rpt.Load(Server.MapPath("id.rpt"))
            rpt.SetDatabaseLogon("sa", "3422", "10.0.0.12", "staff")
            rpt.SetParameterValue("id", TextBox1.Text)
            'rpt.SetParameterValue("student", TextBox2.Text)
            CrystalReportViewer3.ReportSource = rpt
            Dim mem As System.IO.MemoryStream
            mem = rpt.ExportToStream(ExportFormatType.PortableDocFormat)
            Response.Clear()
            Response.Buffer = True
            Response.ContentType = "application/pdf"
            Response.AddHeader("Content-Disposition", "inline;filename=mypdf.pdf")
            Response.BinaryWrite(mem.ToArray())
            Response.Flush()
            rpt.Close()

        End If

        'Response.BinaryWrite(CType(Session("myCrystalReport"), IO.MemoryStream).ToArray())

    End Sub

مع الشكر

error.jpg

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

0 إجابة على هذا السؤال .

لاتوجد إجابات على هذا السؤال حتى الآن .

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .