2 RDLC rendern Excel

  • VB.NET

    2 RDLC rendern Excel

    Hallo zusammen,


    ich habe 2 unterschiedliche Berichte (rdlc) erstellt.
    Diese möchte ich nun zusammen in eine Excelmappe rendern.
    Mit einem Bericht funktioniert das auch wunderbar.
    Ich bekomme nur den 2. nicht rein.

    Anbei der Code:

    'Deklaration
    Dim warnings As Microsoft.Reporting.WinForms.Warning() = Nothing

    Dim path As String
    path = Application.StartupPath

    Dim streamids As String() = Nothing
    Dim mimeType As String = String.Empty
    Dim encoding As String = String.Empty
    Dim extension As String = String.Empty

    Dim bytes As Byte() = Nothing
    Dim bytes1 As Byte() = Nothing

    Dim sfd As SaveFileDialog
    sfd = New SaveFileDialog()
    sfd.InitialDirectory = ""
    sfd.Filter = "xls (*.xls)|*.xls"
    sfd.Title = "Wählen Sie den Speicherort für die Auswertung aus"


    'Bytes aus 1. Bericht auslesen
    bytes = Testkurz.ReportViewer1.LocalReport.Render("Excel", DBNull.Value.ToString(), mimeType, encoding, extension, streamids, warnings)
    'Bytes aus 2. Bericht auslesen
    bytes1 = Test.ReportViewer1.LocalReport.Render("Excel", DBNull.Value.ToString(), mimeType, encoding, extension, streamids, warnings)

    'Bytes zusammenführen
    Array.Resize(bytes, bytes.Length + bytes1.Length)
    Array.Copy(bytes1, 0, bytes, bytes.Length - bytes1.Length, bytes1.Length)

    'Filestream
    fs = New IO.FileStream(sfd.FileName, System.IO.FileMode.Create, IO.FileAccess.Write)
    fs.Write(bytes, 0, bytes.Length)
    fs.Close()



    Habt Ihr eine Idee?
    Vielen Dank!