
27/02/2008, 09:34
|
| | Fecha de Ingreso: agosto-2006
Mensajes: 3
Antigüedad: 18 años, 8 meses Puntos: 0 | |
Sub Reporte Hola
hasta ahora no habia tenido la necesidad de utilizar subreportes por favor coo puedo enviar la informacion a mi subreporte
yo estoy colocando este codigo en archivo
Dim Report As New crpRequerimientoResumenxDia
Dim Report1 As New crpSubRepRequerimiento
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
Report.Database.SetDataSource rsTemporal, 3, 1
Report1.Database.SetDataSource rsSubRepTemporal, 3, 1
Report.Subreport1.OpenSubreport
Set rsSubRepTemporal = Nothing
Report.txtEmpresa.SetText (strEmpresa)
Report.txtDia.SetText frmRequerimientoFichasRegistradasxDia.mskFecha.Tex t
Report.DiscardSavedData
CRViewer1.ViewReport
CRViewer1.Zoom (96)
Screen.MousePointer = vbDefault
End Sub
en mi subreporte no sale nada solo la cabezera que le dibuje
please haber si me pueden ayudar |