Actualizacion de Subreportes
Publicado por victor (2 intervenciones) el 21/02/2002 00:19:19
Hola....
Tengo un reporte el cual contiene un subreporte el cual tiene su link y los campos necesarios.
el problema que tengo es como le hago desde VB 6.0 para actualizar el subreporte es decir si el subreporte no tienen ningun registro que no se presente el codigo que utilizo para llamar al reporte es el siguiente.
Nota el reporte funciona bien desde crystal reports y si el subreporte no tiene informacion no se visualiza caso contrario si se visualiza el subreporte que es lo que tengo que hacer en VB 6.0 para que suceda esto...
Dim aplicacion As CRAXDRT.Application
Dim reporte As CRAXDRT.Report
Set aplicacion = New CRAXDRT.Application
Set reporte = aplicacion.OpenReport("c:\program files\saewin\reportes\rptdeudoresxcon.rpt")
reporte.Database.Tables_(1).SetLogOnInfo "saewin", "saewin", "conecta", "conecta"
reporte.GroupSelectionFormula = "{qrydeudores.codgru} in ['131']"
CRViewer1.ReportSource = reporte
CRViewer1.ViewReport
Tengo un reporte el cual contiene un subreporte el cual tiene su link y los campos necesarios.
el problema que tengo es como le hago desde VB 6.0 para actualizar el subreporte es decir si el subreporte no tienen ningun registro que no se presente el codigo que utilizo para llamar al reporte es el siguiente.
Nota el reporte funciona bien desde crystal reports y si el subreporte no tiene informacion no se visualiza caso contrario si se visualiza el subreporte que es lo que tengo que hacer en VB 6.0 para que suceda esto...
Dim aplicacion As CRAXDRT.Application
Dim reporte As CRAXDRT.Report
Set aplicacion = New CRAXDRT.Application
Set reporte = aplicacion.OpenReport("c:\program files\saewin\reportes\rptdeudoresxcon.rpt")
reporte.Database.Tables_(1).SetLogOnInfo "saewin", "saewin", "conecta", "conecta"
reporte.GroupSelectionFormula = "{qrydeudores.codgru} in ['131']"
CRViewer1.ReportSource = reporte
CRViewer1.ViewReport
Valora esta pregunta
0