Hola. Alguien podria ayudarme. Mi programa VB que llama al Crystal reports tiene que enviar 2 parametros. Todo bien pero cuando Vb pasa por la instruccion CrViewer.ViewReport no me muestra el reporte. Que pasa ?
Yo elegi la referencia "crystal report activex designer run time libray 10.0" y el objeto "crystal activex report viewer library 10.0"
El reporte es simple, solo para ver como pasar parametros. No usa Base de datos ni nada, solo muestra los parametros que le envio de VB.
Aca muestro el codigo.
===================================
Private Sub Form_Load()
Dim crApp As New CRAXDRT.Application
Dim crReport As New CRAXDRT.Report
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition
Dim mflgContinuar As Boolean
Dim mstrParametro1 As String
Dim mlngParametro2 As Long
On Error GoTo ErrHandler
'Abrir el reporte
Screen.MousePointer = vbHourglass
Set crReport = crApp.OpenReport(App.Path & "\report1.rpt", 1)
' Parametros del reporte
Set crParamDefs = crReport.ParameterFields
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "nromdc"
crParamDef.AddCurrentValue ("1")
Case "nroae"
crParamDef.AddCurrentValue ("1")
End Select
Next
CrViewer.ReportSource = crReport
CrViewer.DisplayGroupTree = False
CrViewer.ViewReport
Screen.MousePointer = vbDefault
Set crParamDefs = Nothing
Set crParamDef = Nothing
End
ErrHandler:
If Err.Number = -2147206461 Then
MsgBox "El archivo de reporte no se encuentra, restáurelo de los discos de instalación", _
vbCritical
Else
MsgBox Err.Description, vbCritical + vbOKOnly
End If
mflgContinuar = False
Screen.MousePointer = vbDefault
End Sub
=========================================
Gracias...
