Crystal Report - Pasar valores discretos a un informe

 
Vista:

Pasar valores discretos a un informe

Publicado por Belén (37 intervenciones) el 21/12/2005 13:30:49
Buenas a todos,

Necesito saber como pasar a un mismo parametro del informe varios valores.

Ver código más abajo........

Dim crpParamdefs As CRAXDRT.ParameterFieldDefinitions
Dim crpParamdef As CRAXDRT.ParameterFieldDefinition

Set crpParamdefs = crReport.ParameterFields

For Each crpParamdef In crpParamdefs
With crpParamdef

Select Case .ParameterFieldName
Case "FechaParte"
crpParamdef.AddCurrentValue (UCase(strDate) & vbNullChar)
Case "FechaImpresion"
crpParamdef.AddCurrentValue (frmInformes.dtFechaImpresion.Value & vbNullChar)
Case "FechaInicial"
crpParamdef.AddCurrentValue (frmInformes.dtIntervaloInicial.Value)

Case "FechaFinal"
crpParamdef.AddCurrentValue (frmInformes.dtIntervaloFinal.Value)
Case "CAR"
If frmInformes.cbocarr.Text = "<Todos>" Then
Dim carr As String
For i = 1 To frmInformes.cbocarr.ListCount - 1
frmInformes.cbocarr.ListIndex = i
->>>>>>>>>>>>>> 'AQUI NECESITARIA PASAR A CAR VARIOS VALORES<<<<<<
Next i

End If

Case "Param2"
crpParamdef.AddCurrentValue (frmInformes.AgrupaciónText.Text & vbNullChar)

Case Else
Call infPanel.InformationOutput(vbCritical, _
"Error en informe. Nombre de parámetro desconocido")
Exit Sub
End Select
End With
Next

MUCHAS GRACIAS.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder