子报表添加错误！！！

在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
但是之后还是会报错


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

草帽专家

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

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

草帽专家

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

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

1.     Private Sub MainReport_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
   
2. 
   
3.         Dim xtrSiji As New System.Xml.XmlTextReader(Application.StartupPath + "\actSiji.rpx")
   
4.         Dim actSiji As New GrapeCity.ActiveReports.SectionReport
   
5.         actSiji.LoadLayout(xtrSiji)
   
6. 
   
7.         SubReport1.DataField = actSiji.DataMember
   
8.         Me.SubReport1.Report = actSiji
   
9.         Me.SubReport1.CanGrow = True
   
10.         Me.SubReport1.CanShrink = True
    
11.         Me.SubReport1.ReportName = "actSiji"
    
12. 
    
13.         Dim xtrGaihan As New System.Xml.XmlTextReader(Application.StartupPath + "\actGaihan.rpx")
    
14.         Dim actGaihan As New GrapeCity.ActiveReports.SectionReport
    
15.         actGaihan.LoadLayout(xtrGaihan)
    
16. 
    
17.         SubReport2.Report = actGaihan
    
18.         SubReport2.CanGrow = True
    
19.         SubReport2.CanShrink = True
    
20.         SubReport2.ReportName = "actGaihan"
    
21. 
    
22.         Dim xtrHouzai As New System.Xml.XmlTextReader(Application.StartupPath + "\actHouzai.rpx")
    
23.         Dim actHouzai As New GrapeCity.ActiveReports.SectionReport
    
24.         actHouzai.LoadLayout(xtrHouzai)
    
25.         SubReport3.Report = actHouzai
    
26. 
    
27.         SubReport3.CanGrow = True
    
28.         SubReport3.CanShrink = True
    
29.         SubReport3.ReportName = "actHouzai"
    
30. 
    
31.     End Sub

复制代码

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

回复 6楼草帽专家的帖子

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