使用RAS SDK 动态添加子报表

之前有人问到怎么在代码中动态添加子报表，或者其他对象。我的答复一般是这个是做不到的，但是可以通过预置对象的显示与隐藏来模拟此效果。
这是因为现在大多数朋友用的都是微软VS200X自带的水晶报表，这个版本是个简化版本，所以有很多东西是实现不了的。

前几天有人问到了 BO XI 的问题，我也很高兴终于能在这个层面上做一些讨论。后面如果有必要，我会写一些BOE SDK层面的编程。
这个前提是，开发机器上需要安装了BO或CrystalReports Server(或其客户端、 SDK)
然后我们就可以使用RAS SDK在动态添加对象了。
当然也可以使用水晶报表开发版的RDC来实现这个功能，但是代码上还是有不少差别的。

关于RAS我在这里做过一些说明
http://www.cnblogs.com/babyt/archive/2008/05/17/1201418.html
也可参考MSDN
http://msdn.microsoft.com/zh-cn/library/ms225325(VS.80).aspx

 

本文的代码用以演示一个简单的子报表动态添加。
新建立一个水晶报表WinForm工程（VB.Net），默认会增加一个报表CrystalReport1.rpt，再增加一个forSub1.rpt
因本代码只演示子报表的动态添加，所以两个报表里都只放了些文本，均未链接数据库

Imports CrystalDecisions.Shared
Imports CrystalDecisions.Windows.Forms
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.ReportAppServer.ClientDoc
Imports CrystalDecisions.ReportAppServer.Controllers



Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim boReportDocument As ReportDocument
        Dim boReportClientDocument As ISCDReportClientDocument
        Dim boSubreportClientDocument As CrystalDecisions.ReportAppServer.Controllers.SubreportClientDocument
        Dim boArea As CrystalDecisions.ReportAppServer.ReportDefModel.Area
        Dim boSection As CrystalDecisions.ReportAppServer.ReportDefModel.Section
        Dim strSubRptFile As String
       
        boReportDocument = New ReportDocument()
        '加载主报表
         boReportDocument.Load("E:\CRQuestions\AddSubReportRunTime\Crystalreport1.rpt")

'----------------------------------------
'如果要进行数据、参数、公式操作，请在此处对主报表boReportDocument进行操作
'----------------------------------------

        boReportClientDocument = New ReportClientDocumentClass()
        '由主报表返回待RAS操作的ReportClientDocument
        boReportClientDocument = boReportDocument.ReportClientDocument


        '设置待处理的报表区域(此处使用了报表页眉)
        boArea = boReportClientDocument.ReportDefController.ReportDefinition.ReportHeaderArea

        '创建一个新的section，用来放置子报表
        boSection = New CrystalDecisions.ReportAppServer.ReportDefModel.Section

        '设置新节的名称
        boSection.Kind = CrystalDecisions.ReportAppServer.ReportDefModel.CrAreaSectionKindEnum.crAreaSectionKindReportHeader
        boSection.Name = "ReportHeaderForSub1"
        '设置节对象宽度。注意1cm=567缇，可自行调整，此处为20cm
        boSection.Width = 567 * 20

        '待加载的子报表
        strSubRptFile = "E:\CRQuestions\AddSubReportRunTime\forSub1.rpt"

        '将section加到ReportClientDocument
        boReportClientDocument.ReportDefController.ReportSectionController.Add(boSection, boArea, -1)

        '导入子报表,ss1是子报表对象在主报表上的名称
        boSubreportClientDocument = boReportClientDocument.SubreportController.ImportSubreport("ss1", strSubRptFile, boSection)

'----------------------------------------
'如果要进行数据、参数、公式操作，请在此处对子报表boSubreportClientDocument 进行操作
'----------------------------------------


        '刷新Viewer
        CrystalReportViewer1.ReportSource = boReportDocument
    End Sub
End Class

 

C#版本（WinForm）：

 

using System;
using System.Windows.Forms;
using CrystalDecisions.Shared;
using CrystalDecisions.Windows.Forms;
using CrystalDecisions.CrystalReports.Engine;
using CrystalDecisions.ReportAppServer.ClientDoc;
using CrystalDecisions.ReportAppServer.Controllers;

namespace CS_APP_AddSubReportRuntime
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            ReportDocument boReportDocument =new ReportDocument();
            ISCDReportClientDocument boReportClientDocument ;
            CrystalDecisions.ReportAppServer.Controllers.SubreportClientDocument boSubreportClientDocument;
            CrystalDecisions.ReportAppServer.ReportDefModel.Section boSection ;
            String strSubRptFile ="";

        
        //加载主报表
         boReportDocument.Load(@"E:\CRQuestions\CS_APP_AddSubReportRuntime\Crystalreport1.rpt");

/*----------------------------------------
如果要进行数据、参数、公式操作，请在此处对主报表boReportDocument进行操作
----------------------------------------*/

        boReportClientDocument = new ReportClientDocumentClass();
        //由主报表返回待RAS操作的ReportClientDocument
        boReportClientDocument = boReportDocument.ReportClientDocument;


        //获取到第一个section，用来放置子报表
        boSection = boReportClientDocument.ReportDefController.ReportDefinition.PageHeaderArea.Sections[0];

        //待加载的子报表
        strSubRptFile = @"E:\CRQuestions\CS_APP_AddSubReportRuntime\sub1.rpt";

        //导入子报表,ss1是子报表对象在主报表上的名称
        boSubreportClientDocument = boReportClientDocument.SubreportController.ImportSubreport("ss1", strSubRptFile, boSection);
/*----------------------------------------
如果要进行数据、参数、公式操作，请在此处对子报表boSubreportClientDocument 进行操作
----------------------------------------*/


        //刷新Viewer
        crystalReportViewer1.ReportSource = boReportDocument;
    
        }

        
    }
}