Daten Filtern und Drucken

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Daten Filtern und Drucken

    Hallo zusammen,
    ich habe folgendes DataSet.



    Und dazu folgende Form.



    Nun möchte ich bestimmte Werte aus den Tabellen Filtern und Drucken.

    Mit folgendem Code z.b. Drucke ich alle VertriebMitarbeiter und wann deren Pläne bearbeitet wurden (EinstellDatum und UploadDatum)

    VB.NET-Quellcode

    1. With e.Graphics
    3. .DrawString("Mitarbeiter", _font, _brush, x, y)
    4. .DrawString("Einstelldatum", _font, _brush, x + 200, y)
    5. .DrawString("Upoaddatum", _font, _brush, x + 400, y)
    6. For i = 0 To bsPlan.Count - 1
    7. Dim rwPlan = bsPlan.At(Of PlanRow)(i)
    8. .DrawString(rwPlan.VertriebMitarbeiterRow.Name, _font, _brush, x, y + LineHeight)
    9. .DrawString(rwPlan.EinstellDatum.ToShortDateString, _font, _brush, x + 250, y + LineHeight)
    10. .DrawString(rwPlan.Uploaddatum.ToShortDateString, _font, _brush, x + 450, y + LineHeight)
    11. y += LineHeight
    12. Next
    13. End With


    Wie aber kann ich die Pläne nach Datum filtern und mir dann dazu den VertriebMitarbeiter und die Anzahl seiner Pläne Drucken?
    Ich möchte also wissen welcher Mitarbeiter hat wie viele Pläne vom 01.06.2017 bis 30.06.2017 bearbeitet.
    Ich bekomme den Filter nicht hin das ich es auch zum drucken verwenden kann.

    Hat da jemand einen Denkanstoss für mich?
    Kann / sollte man das mit Linq machen oder brauch man das überhaupt nicht?
    Rechtschreibfehler betonen den künstlerischen Charakter des Autors.

    @Akanel
    Setz' doch Deine filter auf die Filter-Property der Bindingsource bsPlan:

    VB.NET-Quellcode

    1. bsPlan.Filter = "Einstelldatum = >=#2017/06/01# AND UploadDatum = <=#2017/06/31#"
    . Dann hast Du zumindes schon einmal den Zeitraum eingegrenzt.
    Ist es aber nicht so, das immer nur EIN Mitarbeiter einen Kunden bearbeitet? Dann kannstDu Deine Relationen anders setzen:
    KUNDE ==> VERTRIEBMITARBEITER = > PLAN
    Im typisierten Dataset findest Du dann in der VertriebMitarbeiterRow eine Property GetPlanRows, die eine Enumeration(Of PlanRow) zurückgibt. Und die wiederum hat die Property COUNT.

    Du Kannst dann auch eine weitere Relation setzen:
    KUNDE ==> PLAN
    Damit ist dann einfach zu sehen, weleche Pläne zu einem Kunden gehören, den es gibt in der KundenRow dann ebenfalls die Property GetPlanRows. Und umgekehrt kannst Du von einer PlanRow den Kunden erkennen.

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

    Hallo @us4711

    Also das Filtern habe ich mit Hilfe von @ErfinderDesRades seiner Extension gemacht. Der Filter war ja auch schon in der Form eingebaut.
    Somit ist schon ein Teil, den ich ausdrucken möchte, gefiltert. Ich hatte das nur nicht gerafft und auf Krampf versucht eine Lösung zu finden, dabei war sie schon längst da. :/

    Hier erstmal der komplette Code den ich bisher habe. Das DataSet ist noch so wie oben auf dem Bild zu sehen.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Printing
    2. Imports System.IO
    3. Imports Hartmann.Dts
    5. Public Class Form1
    7. Private _dataPath As String = Path.GetFullPath("Plaene.xml")
    9. Private Sub DatenSpeichern()
    10. Me.Validate()
    11. Dts1.WriteXml(_dataPath)
    12. End Sub
    14. Private Sub DatenLaden()
    15. Dts1.Clear()
    16. For Each tb As DataTable In Dts1.Tables
    17. tb.BeginLoadData()
    18. Next
    19. If File.Exists(_dataPath) Then Dts1.ReadXml(_dataPath)
    20. For Each tb As DataTable In Dts1.Tables
    21. tb.EndLoadData()
    22. Next
    23. Dts1.EnforceConstraints = True
    24. End Sub
    26. Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
    27. With Me
    28. If .DialogResult <> DialogResult.None Then Return
    29. .Validate()
    30. .SuspendLayout()
    31. With .Controls
    32. While .Count > 0 : .Item(.Count - 1).Dispose() : End While
    33. End With
    34. End With
    35. End Sub
    37. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    38. If Not Dts1.HasChanges Then Return
    39. DatenSpeichern()
    40. End Sub
    42. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Shown
    43. DatenLaden()
    44. End Sub
    46. Private Sub MenuStrip1_Click(sender As Object, e As EventArgs) Handles btnLaden.Click, btnSpeichern.Click, btnTest.Click
    47. Select Case True
    48. Case sender Is btnLaden : DatenLaden()
    49. Case sender Is btnSpeichern : DatenSpeichern()
    50. Case sender Is btnTest : Test()
    51. End Select
    52. End Sub
    54. Private Sub btnFiltern_Click(sender As Object, e As EventArgs) Handles btnFiltern.Click
    55. bsPlan.FilterX("UploadDatum >= ? AND UploadDatum <= ? ", dtpVon.Value, dtpBis.Value)
    56. End Sub
    58. Private Sub btnResetFilter_Click(sender As Object, e As EventArgs) Handles btnResetFilter.Click
    59. bsPlan.FilterX("")
    60. End Sub
    62. Private Sub btnDrucken_Click(sender As Object, e As EventArgs) Handles btnDrucken.Click
    63. PrintPreviewDialog1.Document = PrintDocument1
    64. PrintPreviewDialog1.WindowState = FormWindowState.Maximized
    65. PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
    66. PrintPreviewDialog1.ShowDialog(Me)
    67. End Sub
    69. Private Sub Test()
    70. bsPlan.FilterX("UploadDatum >= ? AND UploadDatum <= ? ", dtpVon.Value, dtpBis.Value)
    71. End Sub
    73. Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
    75. Dim _font As New Font("Segoe UI", 11.0!)
    76. Dim _brush As Brush = Brushes.Black
    77. Dim LineHeight As Single = _font.GetHeight(e.Graphics) + 5
    78. Dim x As Single = e.MarginBounds.Left
    79. Dim y As Single = e.MarginBounds.Top
    81. With e.Graphics
    83. '###### Mitarbeiter mit zugehörigem Plan ######
    84. .DrawString("Mitarbeiter", _font, _brush, x, y)
    85. .DrawString("Einstelldatum", _font, _brush, x + 200, y)
    86. .DrawString("Upoaddatum", _font, _brush, x + 400, y)
    87. For i = 0 To bsPlan.Count - 1
    88. Dim rwPlan = bsPlan.At(Of PlanRow)(i)
    89. .DrawString(rwPlan.VertriebMitarbeiterRow.Name, _font, _brush, x, y + LineHeight)
    90. .DrawString(rwPlan.EinstellDatum.ToShortDateString, _font, _brush, x + 250, y + LineHeight)
    91. .DrawString(rwPlan.Uploaddatum.ToShortDateString, _font, _brush, x + 450, y + LineHeight)
    92. y += LineHeight
    93. Next
    95. '###### Mitarbeiter mit Anzahl der zugehörigen Pläne ######
    96. .DrawString("Vertriebmitarbeiter", _font, _brush, x, y + 200)
    97. .DrawString("Anzahl Pläne", _font, _brush, x + 200, y + 200)
    98. For i = 0 To bsVertriebMitarbeiter.Count - 1
    99. Dim rwVMA = bsVertriebMitarbeiter.At(Of VertriebMitarbeiterRow)(i)
    100. Dim rwPlan = rwVMA.GetPlanRows.Length
    101. .DrawString(rwVMA.Name, _font, _brush, x, y + 200 + LineHeight)
    102. .DrawString(rwPlan.ToString, _font, _brush, x + 200, y + 200 + LineHeight)
    103. y += LineHeight
    104. Next
    106. End With
    108. End Sub
    110. End Class


    Wie Du siehst nutze ich GetPlanRows() bereits, um mir die Anzahl der Pläne zu jedem VertriebMitarbeiter anzeigen zu lassen.

    Was mir jetzt noch fehlt ist , das diese auch nach dem Datum gefiltert werden. Und da stehe ich auf dem Schlauch.


    An das Umsetzen der Relationen hatte ich auch schon gedacht, allerdings ist es in der Tat so das Pro Kunde mehrere VertriebMitarbeiter vorkommen können. Macht eigentlich keinen Sinn, ist aber leider so.
    Rechtschreibfehler betonen den künstlerischen Charakter des Autors.

    Ja das ist die bsPlan. Aber da bekomme ich es nicht hin das mir in dem gefilterten Zeitraum die Mitarbeiter, mit der Anzahl an Plänen die sie in dem Zeitraum erstellt haben, angezeigt wird.
    Ich habe die bsPlan ja schon gefiltert nach dem Datum (1. Block in der Printroutine). Aber dort wird jeder Plan pro Mitarbeiter einzeln aufgeführt, nicht zusammengefasst.

    Ich hänge mal einen Screenshot an wie derzeit die Ausgabe ist.
    Ich hätte gerne das UNTERE nach Datum gefiltert.

    Wie Du siehst sind oben 8 Datensätze an Plänen, unten hingegen sind es neun Pläne (zusammengezählt). Das liegt daran das der filter einen Plan ausschließt, aber leider nur oben.

    Funktioniert das hier nur mit LINQ?

    Rechtschreibfehler betonen den künstlerischen Charakter des Autors.

    Dann habe ich ja die Anzahl der Pläne von jedem Mitarbeiter. Aber diese sind ja immer gesamt gezählt. Wenn ich jetzt wissen möchte wieviele das z.b. nur im August sind funktioniert das ja auch nicht.

    Ich habe das Gefühl ich habe mein Problem nicht richtig beschrieben.

    Ich hänge als beispiel mal meine Solution an. Es geht mir dabei um die Auswertung die beim Drucken rauskommt.
    Klick in der Solution mal "Filter" und dann "Drucken".
    Oben werden alle Mitarbeiter mit Daten zum Plan ausgegeben.
    Im unteren Teil soll jeder Mitarbeiter mit Anzahl der Pläne in diesem Zeitraum aufgelistet werden. Und hier ist das Problem mit dem Filtern des Zeitraumes.
    Dateien

    • Hartmann.rar

      (273,14 kB, 79 mal heruntergeladen, zuletzt: )
    Rechtschreibfehler betonen den künstlerischen Charakter des Autors.

    OK.
    Tausch' mal Zeile 100 aus:

    VB.NET-Quellcode

    1. Dim rwPlan = rwVMA.GetPlanRows.Where(Function(f) f.Uploaddatum >= dtpVon.Value AndAlso f.Uploaddatum <= dtpBis.Value).Count

    Der auf die Bindingsource gesetzte Filter wirkt sich NICHT auf die ChildTable der Mitarbeiter aus, da die Relation ja nicht auf die Relation Mitarbeiter=>Pläne wirkt, sondern direkt auf die Tabelle Pläne.
    Kann daher nicht funktionieren, da es eine andere Sicht auf die Daten ist, ebne auf ALLE Pläne, und nicht nur auf die Pläne des Mitarbeiters.

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

    Ganz ehrlich. Ich habe im OB geschaut was ich machen kann, aber meine Kenntnis reicht scheinbar noch nicht soweit das richtige zu erkennen.
    Selbst jetzt wo du mich mit der Nase drauf drückst, finde ich es nicht.
    Ich habe noch einiges zu lernen.

    Jo.
    rwVMA ist ja vom Typ VertriebMitarbeiterRow. Wie Du ja bereits erfahren hast, hat diese Row Eigenschaften, u.a. die im DataSetDesigner definierten Spalten.
    Und jetzt kommt der Riesenvortal typisierter DataSets zum tragen: Auch eine Eigenschaft GetPlanRows. Das ist keine Zauberei, sonder verweist aufgrund der von Dir im DataSetDesigner eingefügten Relation auf die Datensätze der Tabelle "Plan", in denen "Plan=>VertriebMitarbeiterID" und "VertriebMitarbieter=>ID" den genau gleichen Wert aufweisen.
    Und diese Eigenschaft "GetPlanRows" gibt eben diese dem Mitarbeiter zugeordneten "PlanRows" als Array(of PlanRows) zurück, das aber auch das Interface IEnumerable implementiert. Und dafür existiert eben die Erweiterung "Where", sowie noch etliche andere, die verdammt hilfreich sein können.
    Langsam nachmachen: gib ein (da in Deiner Druckroutine):
    • Dim rwVMA. (Nach dem Punkt eröffnet Intellisense die weiteren Möglichkeiten, eben auch GetPlanRows)
    • rwVMA.GetPlanRows. (nach dem Punkt kommen wiederum Auswahlmöglichkeiten, darunter eban auch Where)
    Ja, und jetzt musst Du Dir nur noch eine Funktion zusammenbauen, die einen logischen Ausdruck zurück gibt, also entweder TRUE oder FALSE. Ud das ist die Bedingung, die Du brauchst. Und das ist immer noch kein LINQ, sondern ein LAMBDA-Ausdruck.
    • Dim rwPlan = rwVMA.GetPlanRows.Where(Function(f) f.Uploaddatum >= dtpVon.Value AndAlso f.Uploaddatum <= dtpBis.Value)
    Dieser Ausdruck gibt ein IEnumerable(of PlanRow) zurück, das wiederum Eigenschaften hat, unter anderem die von Dir benötigte Anzahl
    • Dim rwPlan = rwVMA.GetPlanRows.Where(Function(f) f.Uploaddatum >= dtpVon.Value AndAlso f.Uploaddatum <= dtpBis.Value).Count
    Wie heisst es so schön: Esbraucht unendliche Zeit, um unendliches Wissen zu Erlangen. Ich durfte vor Äonen in einer Physik-Klausur dafür den mathematischen Beweis erbringen ....

    Nur die Benamung ist natürlich kriminell

    us4711 schrieb:

    VB.NET-Quellcode

    1. Dim rwPlan = rwVMA.GetPlanRows.Where(Function(f) f.Uploaddatum >= dtpVon.Value AndAlso f.Uploaddatum <= dtpBis.Value).Count
    Die Variable enthält eine Zahl, und keine PlanRow.
    Damit ist eine - ich schätze - 80%ige Folgefehler-Wahrscheinlichket programmiert. Also dasses dir iwann mal auf die Füße fällt.
    Noch dazu für jmd, dem sowas nicht sofort auffällt.

Facebook
Telefonspende