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.
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


0