Subreporte CR Xi y VB.net
Publicado por Sergio D (14 intervenciones) el 16/07/2007 20:07:04
Hola amigos, necesito un poco de ayuda con lo siguiente:
quiero desplegar un informe en Crystal Report Xi que contiene un subreporte los estoy filtrando por rango de fecha, el reporte principal ningun problema pero el subreporte no ha habido caso que me pesque, mi codigo es el siguiente:
F1 = Format(DateTimePicker1.Value, "MMMM-yyyy")
F2 = Format(DateTimePicker2.Value, "MMMM-yyyy")
cadstr = "{items_balance.fecha} IN date('" & F1 & "') TO date('" & F2 & "') "
CrystalReportViewer1.SelectionFormula = cadstr
Dim oInforme As New reporte_balance_general
oInforme.RecordSelectionFormula = "{ppto_balance.fecha} IN date('" & F1 & "') TO date('" & F2 & "')"
oInforme.OpenSubreport("reporte_balance_presupuesto")
CrystalReportViewer1.ReportSource = oInforme
'CrystalReportViewer1.RefreshReport()
el report principal
reporte_balance_general.rpt
subreport
reporte_balance_presupuesto.rpt
les agradeceria mucho la ayuda..
quiero desplegar un informe en Crystal Report Xi que contiene un subreporte los estoy filtrando por rango de fecha, el reporte principal ningun problema pero el subreporte no ha habido caso que me pesque, mi codigo es el siguiente:
F1 = Format(DateTimePicker1.Value, "MMMM-yyyy")
F2 = Format(DateTimePicker2.Value, "MMMM-yyyy")
cadstr = "{items_balance.fecha} IN date('" & F1 & "') TO date('" & F2 & "') "
CrystalReportViewer1.SelectionFormula = cadstr
Dim oInforme As New reporte_balance_general
oInforme.RecordSelectionFormula = "{ppto_balance.fecha} IN date('" & F1 & "') TO date('" & F2 & "')"
oInforme.OpenSubreport("reporte_balance_presupuesto")
CrystalReportViewer1.ReportSource = oInforme
'CrystalReportViewer1.RefreshReport()
el report principal
reporte_balance_general.rpt
subreport
reporte_balance_presupuesto.rpt
les agradeceria mucho la ayuda..
Valora esta pregunta


0