Question

我有一个lagacy项目（vb6），它在项目执行文件（.exe）旁边有几个报告（.rpx）。当用户执行.exe文件时，它将.rpx文件下载到用户机器的指定本地文件夹，并使用“LoadLayout”语句，它将所有.rpx报告文件格式转换为类型的变量：DDActiveReports2.ActiveReport，最后显示它

现在，我的问题是：我需要在主要报告中嵌入一个子报告，并在上面说明。子报表文件位于exe文件旁边的vb项目 NOT 中。如何在主报表和子报表之间建立关系，并根据主报表使用的某些数据为子报表提供记录集？

谢谢

Answer 1

加载父报表后，您需要将子报表加载到变量中，并在运行父报表之前将子报表控件的对象属性设置为该变量。例如：

' 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属性中。然后，您可以在代码中使用子报表控件动态加载/链接子报表文件。如果您需要一些具体的帮助，请回复您的问题作为评论。

此外，如果可能有用，可以在线here（archive）使用ActiveReports文档的COM版本。

Scott Willeke
GrapeCity

使用ActiveReports pro 2：如何使用子报表？

1 个答案: