Como pasar un parametro a crystal report

[GUYLBUR]

Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParameterValues As New ParameterValues()
Dim crParameterRangeValue As New ParameterRangeValue()
Dim crParameterDiscreteValue As New ParameterDiscreteValue()

crParameterRangeValue.StartValue = CInt(Vt_NumIni)
crParameterRangeValue.EndValue = CInt(Vt_NumIni)
crParameterFieldDefinitions = insFormatoCanels.DataDefinition.ParameterFields
crParameterFieldDefinition = crParameterFieldDefinitions.Item("folio")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Add(crParameterRangeValue)
crParameterFieldDefinition.ApplyCurrentValues(crPa rameterValues)


ESTE CODIGO ES PARA PASARLE PARAMETROS DESDE UNA FORMA DE VB.NET
LA DECLARACION ES PARA LOS OBJETOS QUE NECESITAS,,,,ESTA LINEA crParameterFieldDefinition = crParameterFieldDefinitions.Item("folio") ES PARA DECIRLE A AQUE PARAMETRO DEL REPORTE LE ENVIAS LA INFORMACION.....("ACUERDATE QUE ESTE PARAMETRO folio """o el nombre que tu le des""" DEBE ESTAR EN EL REPORTE...LO CREAS EN CAMPOS DE PARAMETROS Y LO DEBES USAR EN EL MISMO OSEA QUE EL CAMPO APARESCA CON UNA PALOMITA ROJA"),,,,SI DECLARAR UN PARAMETRO DE RANGO USAS ESTAS LINEAS,,,, crParameterRangeValue.StartValue = CInt(Vt_NumIni)
crParameterRangeValue.EndValue = CInt(Vt_NumIni)

SI DECLARAS UN PARAMETRO DISCRETO USAS ESTA LINEA,,, crParameterDiscreteValue.Value = CInt(Vt_NumIni)

ESPERO QUE ESTO TE AYUDE...