Hola, estoy usando Visual Basic 6 en el cual tengo conectada una base de datos Access 2003.
Tengo un formulario en el que se llama a un informe de crystal reports y me muestra el informe correctamente.
Mi problema está en que dicho informe contiene un subreport, y en la vista previa de Crystal se muestra correctamente pero cuando lo llamo desde visual faltan los datos del subreporte que se cojen de una consulta al a base de datos.
He dejado la parte donde va la llamada al subreport en blanco ya que como no funciona, para no liar....
A continuación os muestro el código q uso para llamar al reporte...
Código:
Dim crxApplication As New CRAXDRT.Application
' Declare report object
Dim crxReport As CRAXDRT.Report
' Declare database objects
Dim crxDatabase As CRAXDRT.Database
Dim crxDatabaseTables As CRAXDRT.DatabaseTables
Dim crxDatabaseTable As CRAXDRT.DatabaseTable
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = conexion
conn.Open
Dim sentencia As String
Dim rs As New ADODB.Recordset
sentencia = " consulta "
Set rs = conn.Execute(sentencia)
Screen.MousePointer = vbHourglass
Set crxReport = crxApplication.OpenReport(App.Path & "\report.rpt")
crxReport.DiscardSavedData
Set crxDatabase = crxReport.Database
Set crxDatabaseTables = crxDatabase.Tables
crxReport.Database.SetDataSource rs
' ******************* Subreport *************************
' *****************************************************
crViewer.ReportSource = crxReport
crViewer.ViewReport
crViewer.Zoom 100
Screen.MousePointer = vbDefault
Gracias.