2010-10-08 3 views
0

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

Однако я не могу загрузить изображения. У меня есть два файла, основной отчет (rptMain) и подрегистр изображения (rptSubImages). Sub 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 

ответ

1

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