Reporte en blanco
Publicado por Damian (824 intervenciones) el 14/01/2009 19:01:09
Tengo un reporte realizado con Crystal XI y lo llamo desde VB.NET para mostrarlo, pero cuando ejecuto mi aplicacion me muestra el reporte vacio, este es mi codigo:
Dim Reporte As New FrCrystal
Dim crApp As New CRAXDDRT.Application
Dim crReport As New CRAXDDRT.Report
Dim tbl As CRAXDDRT.DatabaseTable
Dim cadena(3) As String
Dim lPath As String = "C:Documents and SettingsBocaMis documentosVBConstruccionGamatConstruccionReportes"
cadena(0) = ".SQLEXPRESS"
cadena(1) = "Construccion"
crReport = crApp.OpenReport(lPath & "Informe1.rpt", 1)
For Each tbl In crReport.Database.Tables
tbl.SetLogOnInfo(cadena(0), cadena(1))
Next
Reporte.CR.SelectionFormula = "{Facturacion.IDfact}=" & Val(lblComp.Text)
Reporte.CR.ReportSource = crReport
Reporte.CR.Refresh()
Reporte.ShowDialog()
Reporte.CR.Show()
Reporte.CR.ViewReport
Nota:CR es el Crystal Report Viewer cargado en el formulario FrCrystal, en realidad no se para que cargo el control ya que lo tengo diseñado desde Crystal("Informe1.rpt"), pero parece que hay que ponerlo si o si. Espero una ayuda.
Dim Reporte As New FrCrystal
Dim crApp As New CRAXDDRT.Application
Dim crReport As New CRAXDDRT.Report
Dim tbl As CRAXDDRT.DatabaseTable
Dim cadena(3) As String
Dim lPath As String = "C:Documents and SettingsBocaMis documentosVBConstruccionGamatConstruccionReportes"
cadena(0) = ".SQLEXPRESS"
cadena(1) = "Construccion"
crReport = crApp.OpenReport(lPath & "Informe1.rpt", 1)
For Each tbl In crReport.Database.Tables
tbl.SetLogOnInfo(cadena(0), cadena(1))
Next
Reporte.CR.SelectionFormula = "{Facturacion.IDfact}=" & Val(lblComp.Text)
Reporte.CR.ReportSource = crReport
Reporte.CR.Refresh()
Reporte.ShowDialog()
Reporte.CR.Show()
Reporte.CR.ViewReport
Nota:CR es el Crystal Report Viewer cargado en el formulario FrCrystal, en realidad no se para que cargo el control ya que lo tengo diseñado desde Crystal("Informe1.rpt"), pero parece que hay que ponerlo si o si. Espero una ayuda.
Valora esta pregunta


0