passing para

[EscapeUK]

How do i pass parameters from a vb app to a crystal report

 

[alistairpaul]

What I put in below worked great for me. I had to cycle multiple command line options into parameters. Reply if you have any questions.

Dim CrxApp As New CRAXDRT.Application
Dim CrxRpt As CRAXDRT.Report

howManyParams = CrxRpt.ParameterFields.Count

Do While curparamline < howManyParams

curparamline = curparamline + 1

' This clears and sets the parameter field if String Type Parameter
If CrxRpt.ParameterFields(curparamline).ValueType = crStringField Then
CrxRpt.ParameterFields(curparamline).ClearCurrentValueAndRange
CrxRpt.ParameterFields(curparamline).AddCurrentValue (&quot;StringParameter&quot
End If

' This clears and sets the parameter field if Date Type Parameter
If CrxRpt.ParameterFields(curparamline).ValueType = crDateField Then
CrxRpt.ParameterFields(curparamline).ClearCurrentValueAndRange
CrxRpt.ParameterFields(curparamline).AddCurrentValue (DateValue(&quot;01/01/01&quot)
End If

' This clears and sets the parameter field if DateTime Type Parameter
If CrxRpt.ParameterFields(curparamline).ValueType = crDateTimeField Then
CrxRpt.ParameterFields(curparamline).ClearCurrentValueAndRange
CrxRpt.ParameterFields(curparamline).AddCurrentValue (DateValue(&quot;01/01/01 09:00:00&quot)
End If

Loop