如何在水晶报表中添加子报表 [英] How to add subreport in crystal reports

问题描述

我在水晶报表设计中添加了子报表。也在代码隐藏文件中我添加了代码来打开子报表...但是当我运行我的应用程序时，它在下面的行中给出了空引用异常：

Report.OpenSubreport（SubReport1）。SetDataSource（dsNowMST）



以下是添加子报告的代码的一部分：

I have added subreport in crystal report design..Also In code behind file I have added code to open subreport...But when I run my application,it gives me null reference exception at the below line:
"Report.OpenSubreport("SubReport1").SetDataSource(dsNowMST)"

Below is a part of code to add subreport:

Dim dsNowMST As New dsNowMST()
                da = New Odbc.OdbcDataAdapter(BDRSql, Con)
                da.Fill(dsNowMST, "commNowMst")


                Report.OpenSubreport("SubReport1").SetDataSource(dsNowMST)

可以任意1请帮助我..这是我第一次使用子报告...

Can any1 please help me..this is the first time I am working with sub reports...

推荐答案

如下所示。

Hi,

try like below.

Dim subreportName As String
Dim subreportObject As SubreportObject
Dim subreport As New ReportDocument()

If TypeOf (Report.ReportDefinition.ReportObjects. _
    Item("SubReport1")) Is SubreportObject Then
    subreportObject = Report.ReportDefinition.ReportObjects. _
        Item("SubReport1")
    subreportName = subreportObject.SubreportName
    subreport = Report.OpenSubreport(subreportName)
    
    Dim dsNowMST As New dsNowMST()
    da = New Odbc.OdbcDataAdapter(BDRSql, Con)
    da.Fill(dsNowMST, "commNowMst") 
    
    subreport.SetDataSource(dsNowMST)
End If

参考 MSDN [< a href =http://msdn.microsoft.com/en-us/library/ms225975(v=vs.80).aspx\"target =_ blanktitle =New Window> ^ ] < br $> b $ b

希望它有效。

refer MSDN[^]

hope it works.

这篇关于如何在水晶报表中添加子报表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！