[HASAN6.0]

كود :

Dim rptdoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
       rptdoc = New Reportx 'RPT report file
       rptdoc.SetParameterValue(0, textbox1.text)
       rptdoc.SetParameterValue(1, textbox2.text)
       rptdoc.SetParameterValue(2, textbox3.text)
         Form2.CrystalReportViewer1.ReportSource = rptdoc