How to Pass Multi Parameter to Crystal Report

[Kosal]

Dear Sir/Madam

I would like you to help give me the an example pass multi parameter to crystal report.

thanks
Best Regard
Kosal

[Dököll]

Hey there Partner!

This may be what you need:

 
Dim oCrystalApp As CRAXDRT.application
 
Dim oCrystalReport As CRAXDRT.Report
 
Dim oCrystalParameters As CRAXDRT.ParameterFieldDefinitions
 
Dim oCrystalParameter As CRAXDRT.ParameterFieldDefinition
 
 
 
' Open the report
 
Public Sub OpenReport(cReportName as string)
 
Set oCrystalReport = oCrystalApp.OpenReport(cReportName, crOpenReportByTempCopy)
 
Set oCrystalParameters = oCrystalReport.ParameterFields
 
End Sub
 
 
 
'Set Parameters
 
Public Sub SetParameter(cParmName as string, cParmValue as string)
 
For Each oCrystalParameter In oCrystalParameters
 
    If oCrystalParameter.Name = cParmName  Then
 
        Select Case oCrystalParameter.ValueType
 
            Case crDateField, crDateTimeField, crDateField
 
                oCrystalParameter.SetCurrentValue CDate(cParmValue)
 
            Case crNumberField
 
                oCrystalParameter.SetCurrentValue Val(cParmValue)
 
            Case Else
 
                oCrystalParameter.SetCurrentValue cParmValue & ""
 
        End Select
 
    End If
 
Next oCrystalParameter
 
End Sub
 

Have a look here if not helpful:
http://www.google.com/search?hl=en&r...b6&btnG=Search

Let us know if anything worked...