how to pass two different parameter field in crystal report?

[foreverkans]

hi,
i am new programmer in .net.
i want to know more detail about passing morethan one parameter field.
i did already in single parameter field using dataset.
but now i am need to show two diff. table in crystal table.so, i need to pass two parameter fields...

plz help very urgent...

thanks n advance..



Kannan:

 

[c.vaibhav]

Hi Kannan..
Even I had the same issue.. I just now found the solution..

following is the code..

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

        Dim crParameterDiscreteValue As ParameterDiscreteValue
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldLocation As ParameterFieldDefinition
        Dim crParameterValues As ParameterValues
        Dim cr as new CrystalReport1

            crParameterFieldDefinitions = cr.DataDefinition.ParameterFields

            ' Add a parameter value - START
            crParameterFieldLocation = crParameterFieldDefinitions.Item("fromdate")
            crParameterValues = crParameterFieldLocation.CurrentValues
            crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
            crParameterDiscreteValue.Value = fromdate
            crParameterValues.Add(crParameterDiscreteValue)
            crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
            ' Add a parameter value - END

            crParameterFieldLocation = crParameterFieldDefinitions.Item("todate")
            crParameterValues = crParameterFieldLocation.CurrentValues
            crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
            crParameterDiscreteValue.Value = todate
            crParameterValues.Add(crParameterDiscreteValue)
            crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

            crParameterFieldLocation = crParameterFieldDefinitions.Item("invoicetype")
            crParameterValues = crParameterFieldLocation.CurrentValues
            crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
            crParameterDiscreteValue.Value = invoicetype
            crParameterValues.Add(crParameterDiscreteValue)
            crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

            crParameterFieldLocation = crParameterFieldDefinitions.Item("customerselected")
            crParameterValues = crParameterFieldLocation.CurrentValues
            crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
            crParameterDiscreteValue.Value = customerselected
            crParameterValues.Add(crParameterDiscreteValue)
            crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

            crParameterFieldLocation = crParameterFieldDefinitions.Item("orderbywhat")
            crParameterValues = crParameterFieldLocation.CurrentValues
            crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
            crParameterDiscreteValue.Value = orderbywhat
            crParameterValues.Add(crParameterDiscreteValue)
            crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

            CrystalReportViewer1.ReportSource = cr

I am not sure if you are still looking out for a solution.. Let me know if you need any more help..

Regards,
Vaibhav