Writing Code
 Crystal Reports Forum : Crystal Reports .NET 2003 : Writing Code
Message Icon Topic: Missing parameter field current value Post Reply Post New Topic
Author Message
yasinirshad
Newbie
Newbie
Avatar

Joined: 24 Sep 2007
Location: Saudi Arabia
Online Status: Offline
Posts: 39
Quote yasinirshad Replybullet Topic: Missing parameter field current value
    Posted: 30 Sep 2007 at 1:19am
Hi ,
am getting this error."Missing parameter field current value."  When i Use this line of code
crReportDocument.DataDefinition.ParameterFields.ApplyCurrentValues() 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.
Thanks,
Yasin.
IP IP Logged
Post Reply Post New Topic
Printable version Printable version

Forum Jump
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot delete your posts in this forum
You cannot edit your posts in this forum
You cannot create polls in this forum
You cannot vote in polls in this forum



This page was generated in 0.047 seconds.