Dynamically show a report (Crystal Report)

[aspvbnetnerd]

I want do dynamically show a crystal report.
Now I have to create a form a add a CrystalReportViewer to the form.

I tried to create i dynamically but it doesn't work.

Imports CrystalDecisions.Windows.Forms.CrystalReportViewer
Imports CrystalDecisions.Shared

[COLOR=#FF00FF]Private[/color] WithEvents crview [COLOR=blue]As[/color] [COLOR=#FF00FF]New[/color] CrystalDecisions.Windows.Forms.CrystalReportViewer

Dim orpt [COLOR=blue]As[/color] CrptCustomer = [COLOR=#FF00FF]New[/color] CrptCustomer
Dim valOrderID [COLOR=blue]As[/color] ParameterDiscreteValue = [COLOR=#FF00FF]New[/color] ParameterDiscreteValue
valOrderID.Value = CurrentCustomerID 
orpt.SetParameterValue("@CustomerID", valOrderID)
crview.ReportSource = orpt
crview.Visible = [COLOR=#FF00FF]True[/color]

But when I use this code it works perfect.
When I use a form

Dim orpt [COLOR=blue]As[/color] CrptCustomer = [COLOR=#FF00FF]New[/color] CrptCustomer
Dim valOrderID [COLOR=blue]As[/color] ParameterDiscreteValue = [COLOR=#FF00FF]New[/color] ParameterDiscreteValue
valOrderID.Value = CurrentCustomerID 
orpt.SetParameterValue("@CustomerID", valOrderID)
FormCrystalReportViewer.CrystalReportViewer1.ReportSource = orpt
FormCrystalReportViewer.CrystalReportViewer1.Visible = [COLOR=#FF00FF]True[/color]
FormCrystalReportViewer.ShowDialog()

Is possible to dynamically show a report like a want to?

 

[Qamgine]

While I don't use an embedded report, the following code might point you in the right direction.

rptDoc is a Crystal Report Viewer control in frmViewReport.

Dim frm As frmViewReport
frm = New frmViewReport
frm.rptDoc.Load("<path to report>")
frm.rptDoc.SetParameterValue("Facility", selFacName)
frm.rptDoc.SetParameterValue("RepGen", "Report Generated: " & Now)
frm.WindowState = FormWindowState.Maximized
frm.crView.Zoom(1)
frm.Show()