Как решить подотчет не может быть показано? - PullRequest
Новая
       35

Как решить подотчет не может быть показано?

0 голосов
/ 04 апреля 2019

У меня есть приложение VB 2008, которое мне поручено добавить отчет о стоимости работы. Этот отчет сгруппирован по номеру работы. Для каждой работы должны быть разделы для всех заказов клиентов и их суммы. Еще один раздел для всех заказов на поставку, созданных для работы. Я создал rdlc внутри приложения, которое возвращает информацию о заданиях и заказах на продажу. Сейчас я пытаюсь добавить подотчет, который возвращает информацию о заказах на покупку. Отчет отлично работает для основного отчета. Моя проблема с подотчетом. Я создал новый rdlc под названием PODetail, который использует dataset3 и DataTable1 для данных. На основной Rdlc я включил подотчет1 и указал на подотчет. Когда я бегу, я получаю правильную верхнюю часть, но для подотчета я получаю «Ошибка: не удалось отобразить подотчет»

вот код, по которому я вызываю отчет. 

 Try
            With Report_formCosting
                .ReportViewer1.ProcessingMode = ProcessingMode.Local
                Dim params(0) As ReportParameter
                params(0) = New ReportParameter("Job", jobs)
                .ReportViewer1.LocalReport.SetParameters(params)

            End With
            Report_formCosting.DataTable1TableAdapter.Connection = con
            Report_formCosting.DataTable1TableAdapter.Fill(Report_formCosting.DataSet2.DataTable1, jobs)
            AddHandler Report_formCosting.ReportViewer1.LocalReport.SubreportProcessing, AddressOf MySubreportEventHandler
            Report_formCosting.ReportViewer1.RefreshReport()
            Application.DoEvents()
            Report_formCosting.Show()
        Catch ex As Exception
            MsgBox(ex.InnerException.Message)
            MsgBox(ex.Message)
        End Try

    Public Sub MySubreportEventHandler(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs)
        Dim adapter1 As DataSet3TableAdapters.DataTable1TableAdapter = New DataSet3TableAdapters.DataTable1TableAdapter
        Dim tabl1 As DataSet3.DataTable1DataTable = New DataSet3.DataTable1DataTable
        e.DataSources.Add(New ReportDataSource("dataset3", tabl1))
    End Sub

Сегодня я прочитал много сообщений в сети и перепробовал кучу. Мне не повезло с подотчетом. Если бы кто-то мог указать мне правильный путь, я был бы признателен. Подотчет использует тот же параметр, что и основной отчет

...