子报表添加错误！！！

登录

在ActiveReport_ReportStart：实列报表：
Dim xtrSiji As New System.Xml.XmlTextReader(Application.StartupPath + "\actSiji.rpx")
Dim actSiji As New GrapeCity.ActiveReports.SectionReport

SubReport1.DataField = actSiji.DataMember
Me.SubReport1.CanGrow = True
Me.SubReport1.CanShrink = True
Me.SubReport1.ReportName = "actSiji"

Dim xtrGaihan As New System.Xml.XmlTextReader(Application.StartupPath + "\actGaihan.rpx")
Dim actGaihan As New GrapeCity.ActiveReports.SectionReport
actGaihan.LoadLayout(xtrGaihan)

SubReport2.Report = actGaihan
SubReport2.CanGrow = True
SubReport2.CanShrink = True
SubReport2.ReportName = "actGaihan"

Dim xtrHouzai As New System.Xml.XmlTextReader(Application.StartupPath + "\actHouzai.rpx")
Dim actHouzai As New GrapeCity.ActiveReports.SectionReport
actHouzai.LoadLayout(xtrHouzai)
SubReport3.Report = actHouzai

SubReport3.CanGrow = True
SubReport3.CanShrink = True
SubReport3.ReportName = "actHouzai"
在Detail_Format 事件中给他绑定数据：，其中objSiji，objGaihan，objHouzai是抽出的数据
SubReport1.Report.DataSource = objSiji
SubReport2.Report.DataSource = objGaihan
SubReport3.Report.DataSource = objHouzai
但是之后还是会报错

好像是子报表没有加上去，求大神指教啊？

ZenosZeng · ZenosZeng

草帽专家

这个问题我这边需要调试一下，看是否会出现和你同样的问题，如有需要我会想你咨询的。

草帽专家 · 草帽专家

嗯，有什么需要，请为我，谢谢dof

ZenosZeng · ZenosZeng

草帽专家

我这边已经重现问题，详细原因还在调查中，已有结果我会给你回帖。

ZenosZeng · ZenosZeng

我修改了下 ReportStart 事件中的代码，如何程序可以正常运行：

Private Sub MainReport_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim xtrSiji As New System.Xml.XmlTextReader(Application.StartupPath + "\actSiji.rpx")
Dim actSiji As New GrapeCity.ActiveReports.SectionReport
actSiji.LoadLayout(xtrSiji)
SubReport1.DataField = actSiji.DataMember
Me.SubReport1.Report = actSiji
Me.SubReport1.CanGrow = True
Me.SubReport1.CanShrink = True
Me.SubReport1.ReportName = "actSiji"
Dim xtrGaihan As New System.Xml.XmlTextReader(Application.StartupPath + "\actGaihan.rpx")
Dim actGaihan As New GrapeCity.ActiveReports.SectionReport
actGaihan.LoadLayout(xtrGaihan)
SubReport2.Report = actGaihan
SubReport2.CanGrow = True
SubReport2.CanShrink = True
SubReport2.ReportName = "actGaihan"
Dim xtrHouzai As New System.Xml.XmlTextReader(Application.StartupPath + "\actHouzai.rpx")
Dim actHouzai As New GrapeCity.ActiveReports.SectionReport
actHouzai.LoadLayout(xtrHouzai)
SubReport3.Report = actHouzai
SubReport3.CanGrow = True
SubReport3.CanShrink = True
SubReport3.ReportName = "actHouzai"
End Sub

复制代码

草帽专家 · 草帽专家

嗯，用了你的程序调试了下，好像你是把报表全部放在一个code模式报表下，但是我这个不是，他是有一个主报表和三个子报表，子报表满足条件显示在子报表的明细。
现在问题解决了，我把XML报表全部都转换成code报表进行修改，这样就好该多了，谢谢dof.

ZenosZeng · ZenosZeng

回复 6楼草帽专家的帖子

好的，谢谢你反馈问题结果。

		自动登录	找回密码
密码			立即注册

[已处理] 子报表添加错误！！！

本帖子中包含更多资源

6 个回复

本帖子中包含更多资源

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

元老葡萄

悬赏达人