首页 文章

将子报表添加到Active Reports

提问于
浏览
0

我正在VB .NET中编写一个报告(使用Active Reports),显示有关位置的详细信息,然后显示一堆存储在数据库中的图像 . 图像通过子报告显示在我的主报告中 .

但是,我无法加载图像 . 我有两个文件,主要报告(rptMain)和图像子报告(rptSubImages) . rptSubImages中的子Detail1_Format永远不会运行,这就是图像没有出现的原因,我无法弄清楚原因!我已经包含了下面的代码......任何人都可以找出为什么我的子报告详细信息部分没有被调用? rptSubImages报告被初始化,但是如果我在详细信息子中放置一个停止点,它在调试期间永远不会被捕获 .

这是代码:

rptMain:


Imports DataDynamics.ActiveReports 
Imports DataDynamics.ActiveReports.Document 
Imports System.Data
Imports System.Data.OleDb

Public Class rptMain
    Private rpt As rptSubImages

    Private Sub rptMain_ReportStart(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ReportStart

    End Sub

    Private Sub Detail1_Format(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Detail1.Format
        Me.SubReport2.Report = rpt

        Dim cmd As New OleDbCommand("rptMain")
        cmd.Parameters.Add("@LocationID", OleDbType.Integer).Value = locationID

        Windows.Forms.Cursor.Current = Cursors.WaitCursor

        Dim dsLocationInfo As DataSet = objPlugIn.GetProcDataset(cmd, Aquifer.PlugIn.DataFormat.Compressed)


        '--image
        Dim dtImage As DataTable = dsLocationInfo.Tables(1)
        If dtImage.Rows.Count > 0 Then
            rpt = New rptSubImages
            SubReport2.Report = rpt
            SubReport2.Report.DataSource = dtImage
        End If
    End Sub
End Class

rptSubImages:


Imports DataDynamics.ActiveReports 
Imports DataDynamics.ActiveReports.Document 

Public Class rptSubImages 
    Public Sub New()
        InitializeComponent()
    End Sub

    Private Sub Detail1_Format(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Detail1.Format
        'some text
    End Sub
End Class

2 回答

相关问题