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
مع الشكر
