Daten aus DataGrid (ohne Datenbank) in einen Report

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Eki.

    Daten aus DataGrid (ohne Datenbank) in einen Report

    Guten Tag,

    ich schreib zurzeit ein kleines Programm, was Messdaten von el. Geräten verwaltet und am Ende einen Report über den Zustand der Geräte über einen Report ausdruckt.
    Cyrstal Report kann/möchte ich nicht benutzen.

    Ich habe
    - einen Report erstellt Name: Report4.rdlc
    - ein Dataset angelegt mit den einzelenen Spalten. Name des Dataset Berichtstabelle // keinen Tabeladapter angelegt, da Daten vom User noch während der Laufzeit eingetragen werden müssen

    mein Code sieht so aus:
    _________________________________________________

    VB.NET-Quellcode

    1. Private Sub Bericht_Standort_Gruppe()
    2. Dim geraetenummer As String
    3. Dim i, j, k As Integer
    4. Dim ReportDatenTabelle As New DataTable
    5. Dim ReportDaten As New ReportDataSource
    7. Timer1.Stop()
    8. Timer2.Stop()
    10. geraetenummer = ""
    12. SQL_Cmd1.Connection = SQL_Con1
    13. SQL_Cmd2.Connection = SQL_Con2
    15. T_Standort.Text = "Wi44" 'zum Testen
    17. SQL_Cmd2.CommandText = "SELECT Nummer, BEZ1, M01, M06, M02, M08, M09 FROM GER WHERE RAU_NUMMER ='" & T_Standort.Text & "'"
    18. SQL_Con2.Open()
    19. dr1 = SQL_Cmd2.ExecuteReader()
    21. If dr1.HasRows Then
    23. With DataGridvonSophisto
    24. .Rows.Clear()
    25. .Columns.Clear()
    26. .Visible = True
    27. .Columns.Add(0, "Prüfbericht")
    28. .Columns.Add(1, "Inventarnr.")
    29. .Columns.Add(2, "Beschreibung")
    30. .Columns.Add(3, "Arbeitsmitteltyp")
    31. .Columns.Add(4, "Seriennummer")
    32. .Columns.Add(5, "Hersteller")
    33. .Columns.Add(6, "Prüfdatum")
    34. .Columns.Add(7, "nächste")
    35. .Columns.Add(8, "Ergebnis")
    36. .Columns.Add(9, "Prüfart")
    37. .AllowUserToAddRows = False
    38. End With
    40. i = 0
    41. j = 0
    43. While dr1.Read
    44. k = 0
    45. SQL_Befehl = "SELECT ID, Bestanden FROM CAT_MESSDATEN where Geraetenummer ='" & dr1.Item(k) & "'"
    46. SQL_Cmd1.CommandText = SQL_Befehl
    47. SQL_Con1.Open()
    48. dr = SQL_Cmd1.ExecuteReader()
    50. If dr.HasRows Then
    51. dr.Read()
    52. DataGridvonSophisto.Rows.Add(1)
    53. DataGridvonSophisto.Rows(i).Cells(0).Value = dr.Item(0)
    54. DataGridvonSophisto.Rows(i).Cells(1).Value = dr1.Item(0)
    55. DataGridvonSophisto.Rows(i).Cells(2).Value = dr1.Item(1)
    56. DataGridvonSophisto.Rows(i).Cells(3).Value = dr1.Item(2)
    57. DataGridvonSophisto.Rows(i).Cells(4).Value = dr1.Item(3)
    58. DataGridvonSophisto.Rows(i).Cells(5).Value = dr1.Item(4)
    59. DataGridvonSophisto.Rows(i).Cells(6).Value = dr1.Item(5)
    60. DataGridvonSophisto.Rows(i).Cells(7).Value = dr1.Item(6)
    61. DataGridvonSophisto.Rows(i).Cells(8).Value = dr.Item(1)
    62. DataGridvonSophisto.Rows(i).Cells(9).Value = "VDE 0701-0702"
    63. i = i + 1
    64. End If
    66. SQL_Con1.Close()
    68. End While
    70. SQL_Con2.Close()
    72. Hinweis.Close()
    74. With ReportDatenTabelle
    75. .Columns.Add("Prüfbericht")
    76. .Columns.Add("Inventarnr.")
    77. .Columns.Add("Beschreibung")
    78. .Columns.Add("Arbeitsmitteltyp")
    79. .Columns.Add("Seriennummer")
    80. .Columns.Add("Hersteller")
    81. .Columns.Add("Prüfdatum")
    82. .Columns.Add("nächste")
    83. .Columns.Add("Ergebnis")
    84. .Columns.Add("Prüfart")
    85. End With
    88. For i = 0 To DataGridvonSophisto.Rows.Count
    89. [b]--> hier komme ich nicht weiter... Wie bekomme ich die Daten von Grid in die DataTable und dann in den Report, oder ist das sowieso der falsche Ansatz?[/b]
    90. Next i
    92. Else
    93. MsgBox("Standort hat keine Geräte in der Datenbank", MsgBoxStyle.OkOnly, "Hinweis")
    94. SQL_Con1.Close()
    95. SQL_Con2.Close()
    96. End If
    98. End Sub


    Ich bin für jeden Hilfe sehr dankbar.

    Eki

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Eki“ ()

    Hallo,
    1.) Willkommen im Forum :D,
    2.) Bitte VB Tags benutzen - was ist damit gemeint? - sonst wird das hier keiner lesen (können)
    3.) rot ist den Mods vorbehalten

    Mir fehlt die Frage an der Frage - 5 Regeln für sinnvolle Fragen

    Edit: Gefunden - Codezeile#89
    --> hier komme ich nicht weiter... Wie bekomme ich die Daten von Grid in die DataTable und dann in den Report, oder ist das sowieso der falsche Ansatz?

    Ja, der Ansatz ist falsch.
    Du mußt nicht das DatagridView befüllen, sondern die DataTable.
    Das DatagridView kannste dann da anbinden, oder kannste auch weglassen.

    Und in den Report bekommste die Daten einfach, indemde den Report an die DataTable anbindest.

    VB.NET-Quellcode

    1. Report.DataSource = myDataTable

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Danke für deine Antwort, aber womit ich jetzt Probleme habe ist folgendes

    Mein Code

    VB.NET-Quellcode

    1. ReportViewer1.LocalReport.DataSources.Clear()
    2. DataSet4.Tables.Add(ReportDatenTabelle)
    4. ReportViewer1.Refresh()
    5. ReportViewer1.Visible = True


    Das Problem ist jetzt - der Report wird zwar geöffnet, es stehen jedoch keine Werte darin.

    Die 'ReportDatenTabelle' ist mit Werten gefüllt. Das habe ich geprüft.
    Der ReportViewer1 hat als Bericht den Report6.rdlc
    Im Report6.rdlc wurden Felden aus dem Dataset4 bestückt.
    Die Überschriften werden auch korrekt angezeigt.

    Was mache ich falsch?

    Danke für jede Hilfe

    Eki

    Upps falscher Code

    Upps falscher Code.............

    Sieht so aus


    VB.NET-Quellcode

    1. ' die nächsten 2 Zeile sind zum Testen
    2. i = ReportDatenTabelle.Rows.Count ' Datensätze wurden gefunden
    3. Dim test As String = ReportDatenTabelle.Rows(1).Item(1).ToString ' und in der Tabelle stehen auch Werte
    5. SQL_Con2.Close()
    6. Hinweis.Close()
    8. DataSet4.Tables.Add(ReportDatenTabelle)
    10. Dim DatenfürViewer = New ReportDataSource(ReportDatenTabelle.TableName, ReportDatenTabelle)
    12. ReportViewer1.LocalReport.DataSources.Clear()
    13. reportViewer1.LocalReport.DataSources.Add(DatenfürViewer)
    14. ReportViewer1.Refresh()
    15. ReportViewer1.Visible = True


    ich habe es mit deinem Vorschlag versucht ... sowie ich ihn verstanden habe

    VB.NET-Quellcode

    1. report6.ReportDataSource = ReportDatenTabelle


    aber das nimmt er erst gar nicht an, deshalb habe ich es so versucht.

    Eki