Reports per Schleife füllen und in einem ReportViewer anzeigen

  • VB.NET
  • .NET (FX) 4.5–4.8

    Reports per Schleife füllen und in einem ReportViewer anzeigen

    Hallo Zusammen,

    ich rufe für jede selektierte DatagridviewRow einen Report auf.
    Ich würde gerne diese Reports in einem Reportviewer angezeigt bekommen.


    VB.NET-Quellcode

    1. For Each DGVRow As DataGridViewRow In DGV_Main.SelectedRows
    2. Dim sfi = DirectCast(DirectCast(DGVRow.DataBoundItem, DataRowView).Row, DtsHülsenlager.dtKMAHülsenAufträgeRow)
    3. R6(sfi.AuftragsNr_, sfi.KST, sfi.Maschine, sfi.Beschreibung & " " & sfi.Beschreibung2, sfi.ArtikelNr_, sfi.Startdatum.ToString, sfi.Menge, "R6")
    4. Next


    VB.NET-Quellcode

    1. Sub R6(pAuftrag As String, pKST As String, pMaschine As String, pBeschreibung As String, pHülsenartikel As String, pStartdatum As String, pMenge As Decimal, ReportID As String)
    2. Dim RPAuftrag As New ReportParameter("rpAuftragsNr", pAuftrag)
    3. Dim MengeGerundet As String = Format(pMenge, "N0")
    4. Dim RPMenge As New ReportParameter("rpMenge", MengeGerundet)
    5. Dim RPMaschine As New ReportParameter("rpMaschine", pMaschine)
    6. Dim RPBeschreibung As New ReportParameter("rpBezeichnung", pBeschreibung)
    7. Dim RPHülsenartikel As New ReportParameter("rpHülsenartikel", pHülsenartikel)
    8. Dim RPStartDatum As New ReportParameter("rpStartDatum", pStartdatum)
    9. Dim RPKST As New ReportParameter("rpKST", pKST)
    10. Dim RReport As LocalReport = MyFrmReportVorschau.ReportViewer1.LocalReport
    11. With RReport
    12. .ReportEmbeddedResource = "AllgemeineEinstellungen." & ReportID & ".rdlc"
    13. .SetParameters(RPAuftrag)
    14. .SetParameters(RPBeschreibung)
    15. .SetParameters(RPHülsenartikel)
    16. .SetParameters(RPKST)
    17. .SetParameters(RPMaschine)
    18. .SetParameters(RPMenge)
    19. .SetParameters(RPStartDatum)
    20. End With
    21. With MyFrmReportVorschau.ReportViewer1
    22. .SetDisplayMode(DisplayMode.PrintLayout)
    23. .ZoomMode = ZoomMode.Percent
    24. .ZoomPercent = 80
    25. .RefreshReport()
    26. End With
    27. MyFrmReportVorschau.ShowDialog()
    28. End Sub


    Muss ich die Reports Zwischenspeichern und anschließend aufrufen oder geht das direkt?

    Besten Dank

    Gruß

    Kim

Facebook
Telefonspende