Экспорт нескольких Crystal Reports ASP.NET

Question

Я хочу экспортировать 2 разных отчета, когда нажимаю кнопку «Экспорт». Проблема в том, что процедура запускается только один раз, и мне нужно распечатать только один отчет. Я делаю что-то неправильно? Я думаю, что это как-то связано с HTTPResponse, но я не уверен.

Вот мой код:

Dim badgeSize As Integer = 0 'Drop Down selection

    Dim badgeData As New DataSet 'Visitor Badge Data
    Dim badgeEmployeeData As New DataSet 'Employee Badge Data
    Dim badgeTotals As Integer = 0 'Totals for both

    badgeSize = ddlBadgeSize.SelectedValue

    ' Get Visitor Data
    badgeData = _DatabaseAccess.GetProjectReportData(sessionInfo.myEventID, sessionInfo.EventCreator)
    ' Get Employee Data
    badgeEmployeeData = _DatabaseAccess.GetProjectReportEmployeeData(sessionInfo.myEventID, sessionInfo.EventCreator)
    'Obtain Totals
    badgeTotals = badgeData.Tables(0).Rows.Count + badgeEmployeeData.Tables(0).Rows.Count

    If badgeTotals = 0 Then
        ShowMessage("There are no badges to print.")
        Exit Sub
    End If

    If badgeSize.Equals(0) Then 'Small 

        If badgeEmployeeData.Tables(0).Rows.Count > 0 Then
            If badgeEmployeeData.Tables(0).Rows.Count >= 6 Then
                PrintProjectBadges(badgeEmployeeData, "Employee", badgeSize)
            Else
                PrintStandardDymo(badgeEmployeeData, "Employee", 1)
            End If
        End If

        If badgeData.Tables(0).Rows.Count > 0 Then
            If badgeData.Tables(0).Rows.Count >= 6 Then
                PrintProjectBadges(badgeData, "Visitor", badgeSize)
            Else
                PrintStandardDymo(badgeData, "Visitor", 1)
            End If
        End If
   else
     'do somethign else
   endif

и код сообщения:

Private Sub PrintProjectBadges(ByVal theData As DataSet, ByVal badgeType As String, ByVal badgeSize As Integer)
        Dim ourReport As New ReportDocument
        Dim crConnectionInfo As New ConnectionInfo(SetCrystalConnection)

        If badgeSize = 0 Then
            Try
                If badgeType = "Visitor" Then
                    ourReport.Load(Server.MapPath("SmallProjectBadge.rpt"), OpenReportMethod.OpenReportByDefault) 'LIVE SERVER USE
                Else
                    ourReport.Load(Server.MapPath("SmallProjectEmployeeBadge.rpt"), OpenReportMethod.OpenReportByDefault) 'LIVE SERVER USE
                End If

            Catch ex As Exception
                Dim TraceList As New ArrayList
                TraceList.Add("DBLog")
                DatabaseAccess.WriteToErrorLog("Visitor Registration", "Printing Project Badges", ex.Message, TraceEventType.Information, 1, TraceList)
                Exit Sub
            End Try

            ourReport.SetDataSource(theData.Tables("Project"))
        Else
            'Do somethign else...
        End If

        Response.Buffer = True
        'Clear the response content and headers
        Response.ClearContent()
        Response.ClearHeaders()

        SetLogon(ourReport, crConnectionInfo)

        'Export the Report to Response stream in PDF format and file name Customers
        ourReport.ExportToHttpResponse(ExportFormatType.PortableDocFormat, Response, True, "Visitor_Badges")
        Response.End()
        'Response.Close()


    End Sub

Любая помощь будет принята с благодарностью.

Answer 1

Ответ может отправлять только один файл за раз - чтобы экспортировать оба файла, вам нужно будет экспортировать их на локальный диск и объединить их в нечто вроде ZIP-файла, чтобы затем отправить его обратно клиенту.