После загрузки родительского отчета вам нужно будет загрузить вложенный отчет в переменную и установить свойство объекта элемента управления подчиненного отчета на эту переменную перед запуском родительского отчета.Например:
' Load parent report:
Dim rptParent As New ActiveReport
rptParent.LoadLayout App.Path & "\myParentReport.rpx"
' Load the subreport:
Dim rptSubreport As New ActiveReport
rptSubreport.LoadLayout App.Path & "\mySubReport.rpx"
' * Initialize the subreport control by passing the actual report to run as a subreport:
Set rptParentReport.Sections("Detail").Controls("MySubreportControl").Object = rptSubreport
' Preview the parent report in the viewer:
ARViewer21.ReportSource = rptParent
Теперь, если вы не можете жестко закодировать имя файла подотчета (mySubReport.rpx
в моем примере выше) или имя элемента управления подотчета (MySubreportControl
в моем примере выше), тогда вы можете написать подпрограммуперебрать все элементы управления в родительском отчете и найти каждый элемент подчиненного отчета.Затем убедитесь, что вы сохранили имя файла вложенного отчета в свойстве ReportName или Tag элемента управления вложенного отчета.Затем вы можете динамически загружать / связывать файлы подотчета с помощью элементов управления подотчета в вашем коде.Пожалуйста, ответьте на ваши вопросы в качестве комментария, если вам нужна определенная помощь с этим.
Кроме того, COM-версия документации ActiveReports доступна онлайн здесь ( архив )в случае, если это может быть полезно.
Scott Willeke
GrapeCity