报表不支持二层嵌套的,只能是一层.给一个思路你吧: Dim SubReport As New ReportDocument() SubReport = mainReport.OpenSubreport(SubReportName) '在这里得到子报表实例,然后再去找控件 Cl = Ctype(SubReport.Section1.ReportObjects.Item(ControlName),TextObject) Dim Ds As New DataSet() : Dim Ca As New ClassData() Ds = Ca.DS(StorePName, PV, PN) Ds.Tables(0).TableName = TableName SubReport.SetDataSource(Ds) SubReport.Refresh()
Dim SubReport As New ReportDocument()
SubReport = mainReport.OpenSubreport(SubReportName) '在这里得到子报表实例,然后再去找控件
Cl = Ctype(SubReport.Section1.ReportObjects.Item(ControlName),TextObject) Dim Ds As New DataSet() : Dim Ca As New ClassData()
Ds = Ca.DS(StorePName, PV, PN)
Ds.Tables(0).TableName = TableName
SubReport.SetDataSource(Ds)
SubReport.Refresh()