Error..missing parameter field current value..help me resolve this error...(crystal report - vb.net)

• • Reply

  13 years ago

  by yasinirshad

  Yasin

  , India

  Joined 14 years ago

  Hi ,
  am getting this error."Missing parameter field current value." Please help me resolve this.. When i Use this line of code
  [CODE]crReportDocument.DataDefinition.ParameterFields.ApplyCurrentValues()[/CODE] it says "ApplyCurrentValues is not a member of CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition".How do i get rid of this error.
  Also is there anyway that without Exporting , i Can Print the Report from vb.net application directly using default Printer.
  Code is:
  Private Sub Btn_Export_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Export.Click
          Try
              Dim ConnInfo As New ConnectionInfo
              With ConnInfo
                  .ServerName = "WASA00150"
                  .DatabaseName = "iCalls"
                  .UserID = "sa"
                  .Password = "courage"
              End With
              Me.CrystalReportViewer1.ParameterFieldInfo.Clear()
              If Me.txtSTdate.Text.Trim.Length > 0 Then
                  Me.CrystalReportViewer1.ReportSource = Server.MapPath("iCalls_CrystalReport_Department.rpt")
                  Dim ParamFields As ParameterFields = Me.CrystalReportViewer1.ParameterFieldInfo
                  Dim Per As New ParameterField
                  Per.ParameterFieldName = "Period"
                  Dim Period_Value As New ParameterRangeValue
                  Period_Value.StartValue = Me.txtSTdate.Text
                  Period_Value.EndValue = Me.txtCLdate.Text
                  Per.CurrentValues.Add(Period_Value)
                  ParamFields.Add(Per)
              End If
              For Each cnInfo As TableLogOnInfo In Me.CrystalReportViewer1.LogOnInfo
                  cnInfo.ConnectionInfo = ConnInfo
              Next
              Me.CrystalReportViewer1.RefreshReport()
              CrystalReportViewer1.Visible = True
              Dim exportPath As String = "D:\SampleCrystalReports\iCalls_Export\test1.pdf"
              Dim crExportOptions As ExportOptions
              Dim crDestOptions As New DiskFileDestinationOptions
              crDestOptions.DiskFileName = exportPath
              crExportOptions = crReportDocument.ExportOptions
              crExportOptions.DestinationOptions = crDestOptions
              crExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
              crExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat
              crReportDocument.Export()
          Catch ex As Exception
              lblmsg.Text = ex.Message.ToString
          End Try
      End Sub
  Many Thanks.

  Report abuse