Why do I get Missing Parameter Values error from CrystalReportViewer in VS2005

Question

Post Author: eseidel
CA Forum: .NET
Hi everyone,
I have spent way to much time trying to figure this problem out and am getting no where now. I was hoping someone with more experience in CR for VS2005(I think v.9) and VS2005 may be able to help.  I have a report with 10 parameters that Im setting in code.  I have another 3 parameters in a subreport(with same names as 3 in main report) that are being pushed in(I hope) through my ApplyParams() method.  I have checked the output of each parameter before and after it is assigned in ApplyParams.  All values are being set....So why do I keep getting an error when I run it for Missing Parameter Values no matter what I do?  The error comes after SetDBLogonForReport(myConnectionInfo).  I have been struggling with this problem for almost 3 days now and have tried numerous approaches.  If I remove the subreport it works ok.  Why is subreport not getting parameters(I think this is where the problem stems from)?  Please any advice would be greatly appreciated.  Thank you. If need be I can e-mail the report but I don't know how much that will help without being able to access the datasources.
Eric
Code Snippet
Private _Parameters As New System.Collections.Specialized.StringDictionary
Public Property Parameters() As System.Collections.Specialized.StringDictionary
     Get
         Return (_Parameters)
     End Get
     Set(ByVal Value As System.Collections.Specialized.StringDictionary)
        If (Value Is Nothing Or _Parameters Is Nothing) Then Exit Property
        For Each entry As DictionaryEntry In Value
            _Parameters.Add(entry.Key, entry.Value)
        Next
   End Set
End Property
Private Sub SetParameters()
    Parameters("kiPerformance") = rptKi.ToString
    Parameters("PreparedBy") = rptPreparedBy
    Parameters("SupplierName") = rptSupplierName
    Parameters("Supplier") = rptSupplier  'Param in subreport too
    Parameters("ApprovedBy") = rptApprovedBy
    Parameters("kiPerformanceGoal") = rptKiThisGoal.ToString
    Parameters("kiForecastGoal") = rptKiForecast.ToString
    Parameters("kiNextGoal") = rptKiNextGoal.ToString
    Parameters("kiBegRange") = rptBegDate.ToString("d") 'Param in subreport too
    Parameters("kiEndRange") = rptEndDate.ToString("d") 'Param in subreport too
End Sub
Public Function ApplyParams()
    Me.SuspendLayout()
    Dim rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument = _
    crv.ReportSource
    If (rpt Is Nothing OrElse _Parameters Is Nothing) Then Return False
    Dim crParameterFieldDefinitions As ParameterFieldDefinitions = rpt.DataDefinition.ParameterFields
     If (crParameterFieldDefinitions Is Nothing) Then Return False
     For Each crParameterFieldDefinition As ParameterFieldDefinition In crParameterFieldDefinitions
         If ((Not crParameterFieldDefinition.IsLinked) And _
             _Parameters.ContainsKey(crParameterFieldDefinition.Name)) Then
               Dim crParameterValues As ParameterValues = _
               crParameterFieldDefinition.CurrentValues
               If Not (crParameterValues Is Nothing) Then
                     Dim crParameterDiscreteValue As New ParameterDiscreteValue
                     crParameterDiscreteValue.Value =  _Parameters.Item(crParameterFieldDefinition.Name)
                     crParameterValues.Add(crParameterDiscreteValue)
                     'Console.WriteLine(crParameterFieldDefinition.Name & ": " & crParameterDiscreteValue.Value)
                    crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
              End If
          End If
       Next
       crv.ReportSource = rpt
       Me.ResumeLayout()
       Return Nothing
End Function
Private Sub ConfigureCrystalReports()
        Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo
        Dim pFields As New ParameterFields()
         Dim pField As New ParameterField()
         Dim disVal As New ParameterDiscreteValue()
         'Connection stuff,sorry I can't show you this part
         'Bind report
        rptCard = New ReportCard
       LoadDataSource()
       rptCard.SetDataSource(dsOcc)
       rptCard.Subreports("FailOcc").SetDataSource(dsOcc)  'Ive tried without this line as well
       rptCard.PrintOptions.PaperSize = PaperSize.Paper11x17
       rptCard.PrintOptions.PaperOrientation = PaperOrientation.Landscape
       crv.ReportSource = rptCard
       'Load parameters for report
       SetParameters()
       crv.RefreshReport()
       SetDBLogonForReport(myConnectionInfo)
End sub
Private Sub SetDBLogonForReport(ByVal conn As ConnectionInfo)
         Dim tableLogOnInfos As TableLogOnInfos = crv.LogOnInfo
         For Each myTableLogOnInfo As TableLogOnInfo In tableLogOnInfos
              myTableLogOnInfo.ConnectionInfo = conn
         Next
End Sub
Private Sub crv_Error(ByVal source As Object, ByVal e As CrystalDecisions.Windows.Forms.ExceptionEventArgs) Handles crv.Error
      MsgBox(e.Exception.Message)
      e.Handled = True
End Sub
Private Sub crv_ReportRefresh(ByVal source As Object, ByVal e As CrystalDecisions.Windows.Forms.ViewerEventArgs) Handles crv.ReportRefresh
       ApplyParams()
End Sub

Answer 1

Post Author: mewdied
CA Forum: .NET
By any chance are the parameters in your subreport stored procedure parameters?
There was a specific fix for stored procedure parameters available from:ftp://ftp1.businessobjects.com/outgoing/CHF/crnet20win32x86_en_chf.zip
The specific fix is described in the readme under Problem ID # ADAPT00532856