18/03/2004, 13:39
|
| | | Fecha de Ingreso: octubre-2003
Mensajes: 41
Antigüedad: 21 años, 1 mes Puntos: 0 | |
| Intenta trabajar desde el entorno de crystal report y salva el reporte .rpt, despues desde añadeun formulario y un crviewer al formulario, en el codigo del formulario pon esto:
Dim Report As New CRAXDRT.Report
Dim aplicacion As New CRAXDRT.Application
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Set aplicacion = CreateObject("CrystalRuntime.Application")
Set Report = aplicacion.OpenReport(App.Path & "\reporte1.rpt", 1)
Report.RecordSelectionFormula = "{cursos.codc}='" & cdc & "'"
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
debes añadir en vb las librerias para la ejecucion del crystal en tiempo de ejecucion, si no te va prueba a no dejar espacios en las comillas simples de las formulas. Ya me dices, saludos |