When I Am Trying To Load Report In Crystal Report Viewer I Got Missing Parameter Values Error?

See more:

VB

CrystalReports

Hi guys

please help me where i am wrong.. i am trying to load report in CR viewer and getting missing parameter values exception here is my code below

If Not IsPostBack Then


         Dim pathandname As String
         Dim ReportName As String
         Dim DiskOpts As CrystalDecisions.Shared.DiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions

         '' ReportName = Replace(Rptname, ".rpt", ".pdf")
         ReportName = Request.QueryString("rpt").ToString()
         'ReportName = Replace(Rptname, ".rpt", ".pdf")
         pathandname = Server.MapPath("Reports/" & ReportName)

         Dim RptDocument As New ReportDocument
         Dim paramValues As New Hashtable

         RptDocument.Load(pathandname)


         paramValues = DirectCast(Session("Hashtable"), Hashtable)

         Dim keyCollection As ICollection = paramValues.Keys()
         Dim enumerator As IEnumerator = keyCollection.GetEnumerator

         While enumerator.MoveNext
             Dim param As New CrystalDecisions.Shared.ParameterField
             Dim paramValue As New CrystalDecisions.Shared.ParameterDiscreteValue
             Dim paramValTyp As New CrystalDecisions.Shared.ParameterType

             param.ParameterFieldName = CType(enumerator.Current, String)
             paramValue.Value = paramValues.Item(CType(enumerator.Current, String))
             param.CurrentValues.Add(paramValue)

             RptDocument.DataDefinition.ParameterFields(CType(enumerator.Current, String)).ApplyCurrentValues(param.CurrentValues)
             RptDocument.SetParameterValue(param.ParameterFieldName, paramValue.Value)
         End While
         ApplyConnectionInfo(RptDocument)
         CrystalReportViewer1.ReportSource = RptDocument
         CrystalReportViewer1.RefreshReport()
     End If