Perdón _Lucifer_, el código con problemas es este:
Código:
Private Sub Form_Load()
Dim App1 As New CRAXDDRT.Application
Dim Report As New CRAXDDRT.Report
If TFact = "A" Then
Set Report = App1.OpenReport(App.Path & "\rep1.rpt")
Else
Set Report = App1.OpenReport(App.Path & "\rep2.rpt")
End If
Report.DiscardSavedData
Report.RecordSelectionFormula = "{Tabla.id} = " & ID
CR1.ReportSource = Report
CR1.DisplayGroupTree = False
CR1.Refresh
CR1.ViewReport
CR1.EnableRefreshButton = True
End Sub
La línea que no se ejecuta es la que dice "CR1.Refresh". Incluso ahora habilité el botón de Actualizar en el control de Crystal, y tengo que cliquearlo dos o tres veces hasta que refresca y muestra los datos.