Datatable zusammenfassen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von frifri.

    Datatable zusammenfassen

    Hallo,

    ich habe eine ungebundene Datatable, die Daten möchte in zusammenfassen und dann in einem Datagridview anzeigen.
    Die Daten bestehen aus Umsätzen verschiedener Artikel. Ich möchte gleiche Artikel zusammenfassen und die Umsätze addieren.

    Geht das mit einem Filter oder besser die Datatable zusammengefasst kopieren?


    ArtikelNr Umsatz
    1 1
    2 1
    3 2
    2 2
    3 2
    1 2

    und danach dann
    ArtikelNr Umsatz
    1 3
    2 3
    3 4

    frifri schrieb:

    ich habe eine ungebundene Datatable
    Woher kommen die Daten? Aus einer Datenbank?
    Dann lies doch gleich eine gruppierte DataTable ein

    SQL-Abfrage

    1. SELECT ArtikelNr, SUM(Umsatz) AS GesamtUmsatz FROM mytable GROUP BY ArtikelNr
    und binde die DataTable an dein DGV.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    hier ein Bsp. , mit Distinct (ArtikelID) und summieren

    kannst du ja an deine bedürfnisse anpassen

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    5. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    6. Dim names = From row As DataGridViewRow In _
    7. DataGridView1.Rows.Cast(Of DataGridViewRow)() _
    8. Where Not row.IsNewRow _
    9. Select (CInt(row.Cells(0).Value)) Distinct
    11. For Each n In names
    12. Dim nArtikel As String = String.Empty
    13. Dim nEingang As Integer = 0
    14. Dim nAusgang As Integer = 0
    15. Dim nBestand As Integer = 0
    16. For i As Integer = 0 To DataGridView1.Rows.Count - 1
    17. If CInt(DataGridView1.Rows(i).Cells(0).Value) = n Then
    18. If DataGridView1.Rows(i).Cells(2).Value IsNot DBNull.Value Then
    19. nArtikel = CStr(DataGridView1.Rows(i).Cells(1).Value)
    20. nEingang += CInt(DataGridView1.Rows(i).Cells(2).Value)
    21. nAusgang += CInt(DataGridView1.Rows(i).Cells(3).Value)
    22. End If
    23. End If
    24. nBestand = nEingang - nAusgang
    25. Next
    26. 'Lagerbewegungen an Datagridview2
    27. DataGridView2.Rows.Add(n, nArtikel.ToString, nEingang, nAusgang, nBestand)
    28. Next
    30. End Sub
    32. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    33. 'Data
    34. With DataGridView1
    35. .Columns.Add("ArtikelId", "ArtikelId")
    36. .Columns.Add("Artikelname", "Artikelname")
    37. .Columns.Add("Eingang", "Eingang")
    38. .Columns.Add("Ausgang", "Ausgang")
    39. .Rows.Add(1, "Cyan", 45, 4)
    40. .Rows.Add(2, "M100-M109", 32, 8)
    41. .Rows.Add(3, "Magenta", 19, 5)
    42. .Rows.Add(3, "Magenta", 123, 0)
    43. .Rows.Add(3, "Magenta", 19, 4)
    44. .Rows.Add(3, "Magenta", 0, 64)
    45. .Rows.Add(2, "M100-M109", 8, 8)
    46. End With
    47. 'Spalten summen :
    48. With DataGridView2
    49. .Columns.Add("ArtikelId", "ArtikelId")
    50. .Columns.Add("Artikelname", "Artikelname")
    51. .Columns.Add("Eingang", "Eingang")
    52. .Columns.Add("Ausgang", "Ausgang")
    53. .Columns.Add("Bestand", "Bestand")
    54. End With
    55. End Sub
    56. End Class

Facebook
Telefonspende