Добавление подотчета в активные отчеты - PullRequest
0 голосов
/ 08 октября 2010

Я пишу отчет в VB .NET (с использованием Active Reports), который отображает подробности о местоположении, а затем отображает кучу изображений, которые хранятся в базе данных.Изображения отображаются в моем основном отчете через подотчет.

Однако я не могу загрузить изображения.У меня есть два файла: основной отчет (rptMain) и вложенный отчет изображения (rptSubImages).Подпункт Detail1_Format в rptSubImages никогда не запускается, поэтому изображения не появляются, и я не могу понять, почему!Я включил приведенный ниже код ... Кто-нибудь может определить, почему не вызывается мой подробный раздел подотчета?Отчет 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 ]

1 голос
/ 08 сентября 2011

Вы можете получить больше информации о SubReports здесь:

http://blogs.gcpowertools.co.in/2011/09/how-to-control-sub-report-from-parent.html

1 голос
/ 09 октября 2010

Решил мою собственную проблему :) Я поднял раздел, который создал и установил значения вложенного отчета из Detail_Format и поместил его в ReportStart из rptMain, и вуаля, он загружается :) У меня просто он был в неправильной части основного сформировать!

...