SOLO PARA EXPERTOS
Publicado por GUESS (2 intervenciones) el 17/05/2004 20:12:18
Tengo un reporte hecho en Crystal Reports 8.5, y una app en VB6, el reporte tiene un campo parámetro, en VB tengo el siguiente código para abrirlo, pero lanza un error.
Dim arFecha As Integer
arFecha = 2000 'Es un ejemplo, esto lo debo de capturar de un Text
Set crystal = New CRAXDRT.Application
Set report = crystal.OpenReport("C:\Documents and Settings\George\Escritorio\SEC\rptEstudiantesCurso.rpt")
With rpt1
.ParameterFields.Item(1).ClearCurrentValueAndRange
.EnableParameterPrompting = False
.ParameterFields.Item(1).AddCurrentValue (arFecha)
End With
rpt1.ReportSource = report
rpt1.ViewReport
El error lo lanza en las lineas que estan dentro del bloque With-End With, y dice:
"Object doesn´t support this property or method"
Alguien tiene idea de que puede estar pasando?
GRACIAS!
Dim arFecha As Integer
arFecha = 2000 'Es un ejemplo, esto lo debo de capturar de un Text
Set crystal = New CRAXDRT.Application
Set report = crystal.OpenReport("C:\Documents and Settings\George\Escritorio\SEC\rptEstudiantesCurso.rpt")
With rpt1
.ParameterFields.Item(1).ClearCurrentValueAndRange
.EnableParameterPrompting = False
.ParameterFields.Item(1).AddCurrentValue (arFecha)
End With
rpt1.ReportSource = report
rpt1.ViewReport
El error lo lanza en las lineas que estan dentro del bloque With-End With, y dice:
"Object doesn´t support this property or method"
Alguien tiene idea de que puede estar pasando?
GRACIAS!
Valora esta pregunta
0