
21/04/2004, 04:15
|
 | | | Fecha de Ingreso: septiembre-2003 Ubicación: Madrid
Mensajes: 54
Antigüedad: 21 años, 7 meses Puntos: 0 | |
'SI TIENE PARAMETROS LE PASO EL VALOR:
dim param_name, param_value
param_name = "NOMBRE_PARAMETRO"
param_value = "VALOR_PARAMETRO"
dim paramValue 'discrete parameter value
dim param_old 'parameter field in the report
dim param_new
dim parameterfieldcollection
dim parameterfieldIndex
'Create a discrete parameter field value
set paramValue = objectFactory.CreateObject("CrystalReports.Paramet erFieldDiscreteValue")
'Set parameter field value to the new parameter value
paramValue.Value = param_value
'Look for the parameter with the correct name (using a loop)
Set parameterfieldcollection = clientDoc.DataDefinition.ParameterFields
For Each parameterfieldIndex in parameterfieldcollection
If parameterfieldIndex.Name = param_name Then
Set param_old = parameterfieldIndex
'Create a new parameter object
set param_new = objectFactory.CreateObject("CrystalReports.Paramet erField")
'Copy properties of old parameter to new parameter
param_old.CopyTo param_new
'Add discrete value to this new parameter field
param_new.CurrentValues.Add paramValue
'Modify parameter through the DataDefControler and the ParameterFiledController
clientDoc.DataDefController.ParameterFieldControll er.Modify param_old, param_new
'Clean up
set paramValue = nothing
set param_new = nothing
'break out of the loop
Exit For
End if
Next
Debes de ponerlo antes de la llamada al informe, espero que te sirva
__________________ irina.exe |