DataTables im DataSet automatisch durch übergeordnete Tabelle befüllen

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

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

    DataTables im DataSet automatisch durch übergeordnete Tabelle befüllen

    Hallo,

    folgendes Beispiel-DataSet:



    Ich möchte aus dtraw, dtAufbereitet befüllen. In dtraw befinden sich zu bestimmten Zeitpunkten zwei Messwerte SubStatus und LEDStatus. Das Ganze ist pro Station jedoch unabhängig voneinander.
    Ich berechne in der Aufbereitung unter anderem jedoch die Dauer welche sich aus der Differenz zweier Zeitstempel einer StationsID ergibt.
    Da die Zeitstempel der Stationen sich überschneiden können, muss ich die dtraw stationsweise aufteilen. Gibt es die Möglichkeit diese "Stations-gefilterten" Tabellen schon im Designer so zu verknüpfen, dass sie dtraw hinterherspringen nur halt mit Filter auf StationsID?

    Also momentan mache ich es so, da gibts nur unschöne Wiederholungen:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Füll dtraw
    2. DS1.dtraw.Clear()
    3. Using cmd As SqlCommand = 'fertiger Command
    4. Using da As New SqlDataAdapter(cmd)
    5. da.Fill(DS1.dtraw)
    6. End Using
    7. End Using
    8. 'Füll dtStations
    9. Dim linquery As EnumerableRowCollection(Of DataSet1.dtrawRow)
    10. linquery = From t In DS1.dtraw Where t.StationsID = 1
    12. For Each result In linquery
    13. DS1.dtStation1.AdddtStation1Row(result.Zeitstempel, result.SubStatus, result.LEDStatus, result.StationsID)
    14. Next
    16. linquery = From t In DS1.dtraw Where t.StationsID = 2
    18. For Each result In linquery
    19. DS1.dtStation2.AdddtStation2Row(result.Zeitstempel, result.SubStatus, result.LEDStatus, result.StationsID)
    20. Next
    22. linquery = From t In DS1.dtraw Where t.StationsID = 3
    24. For Each result In linquery
    25. DS1.dtStation3.AdddtStation3Row(result.Zeitstempel, result.SubStatus, result.LEDStatus, result.StationsID)
    26. Next
    28. linquery = From t In DS1.dtraw Where t.StationsID = 4
    30. For Each result In linquery
    31. DS1.dtStation4.AdddtStation4Row(result.Zeitstempel, result.SubStatus, result.LEDStatus, result.StationsID)
    32. Next
    34. Dim bis As DateTime
    35. Dim von As DateTime
    37. 'Füll dtAufbereitet
    38. DS1.dtAufbereitet.Clear()
    40. von = DS1.dtStation1(0).Zeitstempel
    41. Dim diff = TimeSpan.FromSeconds(99999)
    42. DS1.dtAufbereitet.AdddtAufbereitetRow(von, diff.TotalSeconds, DS1.dtStation1(0).SubStatus, diff.TotalSeconds * DS1.dtStation1(0).SubStatus, DS1.dtStation1(0).LEDStatus, 1)
    43. For i = 1 To DS1.dtraw.Count - 1
    44. bis = DS1.dtStation1(i - 1).Zeitstempel
    45. von = DS1.dtStation1(i).Zeitstempel
    46. diff = bis - von
    47. DS1.dtAufbereitet.AdddtAufbereitetRow(von, diff.TotalSeconds, DS1.dtStation1(i).SubStatus, diff.TotalSeconds * DS1.dtStation1(i).SubStatus, DS1.dtStation1(i).LEDStatus, 1)
    48. Next
    50. von = DS1.dtStation2(0).Zeitstempel
    51. diff = TimeSpan.FromSeconds(99999)
    52. DS1.dtAufbereitet.AdddtAufbereitetRow(von, diff.TotalSeconds, DS1.dtStation2(0).SubStatus, diff.TotalSeconds * DS1.dtStation2(0).SubStatus, DS1.dtStation2(0).LEDStatus, 2)
    53. For i = 1 To DS1.dtraw.Count - 1
    54. bis = DS1.dtStation2(i - 1).Zeitstempel
    55. von = DS1.dtStation2(i).Zeitstempel
    56. diff = bis - von
    57. DS1.dtAufbereitet.AdddtAufbereitetRow(von, diff.TotalSeconds, DS1.dtStation2(i).SubStatus, diff.TotalSeconds * DS1.dtStation2(i).SubStatus, DS1.dtStation2(i).LEDStatus, 2)
    58. Next
    60. von = DS1.dtStation3(0).Zeitstempel
    61. diff = TimeSpan.FromSeconds(99999)
    62. DS1.dtAufbereitet.AdddtAufbereitetRow(von, diff.TotalSeconds, DS1.dtStation3(0).SubStatus, diff.TotalSeconds * DS1.dtStation3(0).SubStatus, DS1.dtStation3(0).LEDStatus, 3)
    63. For i = 1 To DS1.dtraw.Count - 1
    64. bis = DS1.dtStation3(i - 1).Zeitstempel
    65. von = DS1.dtStation3(i).Zeitstempel
    66. diff = bis - von
    67. DS1.dtAufbereitet.AdddtAufbereitetRow(von, diff.TotalSeconds, DS1.dtStation3(i).SubStatus, diff.TotalSeconds * DS1.dtStation3(i).SubStatus, DS1.dtStation3(i).LEDStatus, 3)
    68. Next
    70. von = DS1.dtStation4(0).Zeitstempel
    71. diff = TimeSpan.FromSeconds(99999)
    72. DS1.dtAufbereitet.AdddtAufbereitetRow(von, diff.TotalSeconds, DS1.dtStation4(0).SubStatus, diff.TotalSeconds * DS1.dtStation4(0).SubStatus, DS1.dtStation4(0).LEDStatus, 4)
    73. For i = 1 To DS1.dtraw.Count - 1
    74. bis = DS1.dtStation4(i - 1).Zeitstempel
    75. von = DS1.dtStation4(i).Zeitstempel
    76. diff = bis - von
    77. DS1.dtAufbereitet.AdddtAufbereitetRow(von, diff.TotalSeconds, DS1.dtStation4(i).SubStatus, diff.TotalSeconds * DS1.dtStation4(i).SubStatus, DS1.dtStation4(i).LEDStatus, 4)
    78. Next


    Viele Grüße

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Haudruferzappeltnoch“ ()

    Hab nun doch was ohne Wiederholungen und ohne die ganzen Tabellen hingekriegt

    Spoiler anzeigen

    VB.NET-Quellcode

    1. DS1.dtAufbereitet.Clear()
    2. Using cmd As SqlCommand = 'fertiger Command
    3. Using da As New SqlDataAdapter(cmd)
    4. da.Fill(DS1.dtAufbereitet)
    5. End Using
    6. End Using
    8. Dim bis As DateTime
    9. Dim von As DateTime
    11. Dim linquery As List(Of DataSet1.dtAufbereitetRow)
    12. For Each id In {1, 2, 3, 4}
    13. linquery = (From t In DS1.dtAufbereitet Where t.StationsID = id Order By t.Zeitstempel Descending).ToList
    15. von = linquery(0).Zeitstempel
    16. Dim diff = TimeSpan.FromSeconds(99999)
    17. linquery(0).Dauer = diff.TotalSeconds : linquery(0).Integral = diff.TotalSeconds * linquery(0).SubStatus
    18. For i = 1 To linquery.Count - 1
    19. bis = linquery(i - 1).Zeitstempel
    20. von = linquery(i).Zeitstempel
    21. diff = bis - von
    22. linquery(i).Dauer = diff.TotalSeconds : linquery(i).Integral = diff.TotalSeconds * linquery(i).SubStatus
    23. Next
    24. Next


    Wär trotzdem interessant zu wissen, ob man ganze Tabelle irgendwie in andere Tabellen übernehmen kann. Oder vielleicht kann man aus einer DatarowCollection eine Tabelle machen?

    For Each id In {1, 2, 3, 4}. Für sowas gibt's eigentlich For id = 1 To 4, aber wenn Du es so lassen willst …
    Ganze Tabellen in andere übernehmen/übertragen: Nuja, eigenlich nur scheibchenweise, also so, wie Du es schon machst. Weil Tabellen ja eigentlich alle anders aussehen. Sonst sollte man überlegen, ob man nicht 2 Tabellen zusammenfassen kann. Aber DataRowCollections nicht. Das sind ja alles untypisierte DataRows. Da müsstest Du hast jedes Bruchstück erstmal casten. Klar könnte man sich da ne tolle Methode dafür basteln. Aber der Einsatzzwecke bliebe fraglich.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende