Pasar datos a Viewer9 de CR
Publicado por Carlos (1 intervención) el 11/10/2004 11:55:48
Como puedo pasar los datos de un SQL de Visual a un informe en vez de utilizar el de Crystal y que me los de ordenados como pido en BY.
Tambien como puedo pasar datos sin que el informe esté ligado a una sola base de datos, con el fin de que un mismo informe me sirva para multiples bases con estructuras iguales. Estoy utilizando este código, pero ni me ordena como quiero ni entra en el bucle que asignaría datos:
Screen.MousePointer = vbHourglass
'Set crReport = crApp.OpenReport(UbiInformes & "Pruebas.rpt", 1)
Set crParamDefs = crReport.ParameterFields
Set crParamDef = Nothing
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "Parametro1"
crParamDef.AddCurrentValue (Titulo)
End Select
Next
crReport.Database.SetDataSource rsCentros
crViewer91.ReportSource = crReport
crViewer91.ViewReport
Screen.MousePointer = vbDefault
Tambien como puedo pasar datos sin que el informe esté ligado a una sola base de datos, con el fin de que un mismo informe me sirva para multiples bases con estructuras iguales. Estoy utilizando este código, pero ni me ordena como quiero ni entra en el bucle que asignaría datos:
Screen.MousePointer = vbHourglass
'Set crReport = crApp.OpenReport(UbiInformes & "Pruebas.rpt", 1)
Set crParamDefs = crReport.ParameterFields
Set crParamDef = Nothing
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "Parametro1"
crParamDef.AddCurrentValue (Titulo)
End Select
Next
crReport.Database.SetDataSource rsCentros
crViewer91.ReportSource = crReport
crViewer91.ViewReport
Screen.MousePointer = vbDefault
Valora esta pregunta
0