Aggiunta di un sottoreport al report attivi
-
28-09-2019 - |
Domanda
Sto scrivendo un rapporto in VB .NET (usando rapporti attivi) che visualizza i dettagli su una posizione, e quindi visualizza una serie di immagini, che vengono memorizzati in un database. Le immagini vengono visualizzate nel mio rapporto principale tramite un sottoreport.
Tuttavia, non posso ottenere le immagini da caricare. Ho due file, il rapporto principale (rptMain) e il sottoreport immagine (rptSubImages). Il sub Detail1_Format nei rptSubImages non viene mai Ran, che è il motivo per cui le immagini non vengono visualizzate, e non riesco a capire perché! Ho incluso il codice qui sotto ... qualcuno può individuare perché la mia sezione dettaglio sottoreport non è sempre chiamato? Il rapporto rptSubImages viene inizializzata, ma se ho messo un punto di arresto all'interno dettaglio sub, non viene mai catturato durante il debug.
Ecco il codice:
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
Soluzione
Ha risolto il proprio problema :) Ho urtato la sezione che ha creato e valori impostati del sottoreport su Detail_Format e metterlo in ReportStart di rptMain, e voilà, carica :) Ho appena avuto nella parte sbagliata del principale forma!
Altri suggerimenti
È possibile ottenere ulteriori informazioni su subreports qui:
http: // blogs.gcpowertools.co.in/2011/09/how-to-control-sub-report-from-parent.html