Parametros CR 8.5 desde VB 6
Publicado por Guillermo (1 intervención) el 03/09/2004 10:58:28
Estoy intentando abrir un report de Crystal desde VB, pasándole una serie de parámetros de texto (que simplemente han de aparecer en el report) y una selection formula.
El problema está en que no para de devolverme el error : "Server has not yer been opened".
El codigo que estoy usando es el siguiente:
Set Appn = CreateObject("CrystalRunTime.Application")
Set cReport = Appn.OpenReport(App.Path & "\RepEstados1.rpt")
Load Form1
Form1.Show
cReport.DiscardSavedData
cReport.RecordSelectionFormula = "{tbltrans.estado} = " & cmbEstado.ItemData(cmbEstado.ListIndex)
cReport.ParameterFields.Item(1).AddCurrentValue "Barcelona"
cReport.ParameterFields.Item(2).AddCurrentValue "A2"
Form1.CRViewer1.ReportSource = cReport
Form1.CRViewer1.ViewReport
Si alguien me puede ayudar o decirme que me falla o falta, se lo agradeceré.
Un saludo
El problema está en que no para de devolverme el error : "Server has not yer been opened".
El codigo que estoy usando es el siguiente:
Set Appn = CreateObject("CrystalRunTime.Application")
Set cReport = Appn.OpenReport(App.Path & "\RepEstados1.rpt")
Load Form1
Form1.Show
cReport.DiscardSavedData
cReport.RecordSelectionFormula = "{tbltrans.estado} = " & cmbEstado.ItemData(cmbEstado.ListIndex)
cReport.ParameterFields.Item(1).AddCurrentValue "Barcelona"
cReport.ParameterFields.Item(2).AddCurrentValue "A2"
Form1.CRViewer1.ReportSource = cReport
Form1.CRViewer1.ViewReport
Si alguien me puede ayudar o decirme que me falla o falta, se lo agradeceré.
Un saludo
Valora esta pregunta
0