2 Zeilen im Datatabel/Datagridview vertauschen

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

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von icekuhn.

    2 Zeilen im Datatabel/Datagridview vertauschen

    Hallo zusammen,

    ich habe ein Datagridview (KundenlisteDataGridView) welches mittels DataSource=KundenlisteBindingSource am DataSet 1 gebunden ist.

    Das Dataset erhält seine Daten aus einer XML Datei.

    Ich möchte jetzt im Datagridview bzw. im Datatabel 2 Zeilen miteinander vertauschen.

    Meine Idee war jetzt einfach die Werte der ID Spalte zu tauschen, jedoch meckert er verständlicher Weise dann, dass die Werte nur einmal vorkommen dürfen.
    Deshalb lese ich erst die Werte der beiden Zeilen aus, lösche sie dann und befülle das Tabel danach neu.

    Zum Schluss lass ich dann nach der Spalte „ID“ sortieren.

    Soweit funktioniert auch alles, jedoch muss es doch auch noch elegantere Lösungen für sowas geben, oder? ?(


    VB.NET-Quellcode

    1. Imports DGV_Zeilen_verschieben.DataSet1
    3. Dim Zeile1, Zeile2 As Integer
    4. Dim Name1, Name2 As String
    5. Dim Adresse1, Adresse2 As String


    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. For i As Integer = 1 To 5
    4. KundenlisteBindingSource.AddNew()
    5. Dim kr = KundenlisteBindingSource.At(Of KundenlisteRow)()
    6. kr.Name = "Name " & i
    7. kr.Adresse = "Adresse " & i
    8. KundenlisteBindingSource.EndEdit()
    9. Next
    11. End Sub


    VB.NET-Quellcode

    1. Private Sub bt_Wert1_Click(sender As Object, e As EventArgs) Handles bt_Wert1.Click
    2. Dim rwZeile1 = KundenlisteBindingSource.At(Of KundenlisteRow)()
    3. Zeile1 = rwZeile1.Id
    4. Name1 = rwZeile1.Name
    5. Adresse1 = rwZeile1.Adresse
    7. rwZeile1.Delete()
    8. End Sub
    10. Private Sub bt_Wert2_Click(sender As Object, e As EventArgs) Handles bt_Wert2.Click
    11. Dim rwZeile2 = KundenlisteBindingSource.At(Of KundenlisteRow)()
    12. Zeile2 = rwZeile2.Id
    13. Name2 = rwZeile2.Name
    14. Adresse2 = rwZeile2.Adresse
    16. rwZeile2.Delete()
    17. End Sub


    VB.NET-Quellcode

    1. Private Sub bt_Tauschen_Click(sender As Object, e As EventArgs) Handles bt_Tauschen.Click
    3. KundenlisteBindingSource.AddNew()
    4. Dim NeueZeile = KundenlisteBindingSource.At(Of KundenlisteRow)()
    5. NeueZeile.Id = Zeile2
    6. NeueZeile.Name = Name1
    7. NeueZeile.Adresse = Adresse1
    8. KundenlisteBindingSource.EndEdit()
    10. KundenlisteBindingSource.AddNew()
    11. Dim NeueZeile2 = KundenlisteBindingSource.At(Of KundenlisteRow)()
    12. NeueZeile2.Id = Zeile1
    13. NeueZeile2.Name = Name2
    14. NeueZeile2.Adresse = Adresse2
    15. KundenlisteBindingSource.EndEdit()
    17. KundenlisteDataGridView.Refresh()
    19. KundenlisteBindingSource.Sort = "Id DESC"
    21. End Sub

    Man soll die ID's unberührt lassen...
    Mach's umgekehrt - merke dir die Inhalte der einen Zeile und überschreibe die Werte der einen Zeile von der anderen Zeile. Danach überschreibst du die Werte der anderen Zeile mit den gemerkten Werten der einen Zeile...

    Danke für den Tipp,

    ich habe den Code jetzt soweit angepasst.
    Dadurch spar ich mir das löschen und neu sortieren ;)

    VB.NET-Quellcode

    1. Private Sub bt_Tauschen_Click(sender As Object, e As EventArgs) Handles bt_Tauschen.Click
    3. 'Suche Zeile zu Wert 1 und befülle mit Wert2
    4. For i = 0 To Me.KundenlisteBindingSource.Count - 1
    5. Dim person = DirectCast(DirectCast(KundenlisteBindingSource(i), DataRowView).Row, KundenlisteRow)
    6. If person.Id Like Zeile1 Then
    7. KundenlisteBindingSource.Position = i
    8. person.Name = Name2
    9. person.Adresse = Adresse2
    10. End If
    11. Next
    13. 'Suche Zeile zu Wert 2 und befülle mit Wert1
    14. For i = 0 To Me.KundenlisteBindingSource.Count - 1
    15. Dim person = DirectCast(DirectCast(KundenlisteBindingSource(i), DataRowView).Row, KundenlisteRow)
    16. If person.Id Like Zeile2 Then
    17. KundenlisteBindingSource.Position = i
    18. person.Name = Name1
    19. person.Adresse = Adresse1
    20. End If
    21. Next
    23. End Sub

    @darkman203: also was da gemacht wird ist abenteuerlich:
    Da tauschen 2 Kunden ihre Namen. Sowas kann man nicht bringen.
    Das ist wie wenn ich den Namen darkman203 annehme, und du den Namen ErfinderDesRades. Wir bleiben dennoch dieselben Identitäten, und das Verwirrspiel wird nur Verwirrung schaffen.

    Normalerweise sortiert man Datensätze, und nur in seltenen Spezialfällen ist die Reihenfolge, wie die Datensätze in der DataTable angeordnet sind, von Belang - im Grunde liegt sogar ein Design-Fehler vor, wenn solch tatsächlich nötig sein sollte, auf jeden Fall aber ein Hack.
    Es ist übrigens möglich - aber wie gesagt: ein Hack:

    VB.NET-Quellcode

    1. Private Sub swapRows(indx0 As Integer, indx1 As Integer, tb As DataTable)
    2. If indx0 >= indx1 Then Throw New ArgumentException("indx0 muss kleiner sein als indx1!")
    3. Dim enforced = tb.DataSet.EnforceConstraints
    4. If enforced Then tb.DataSet.EnforceConstraints = False
    5. Dim rw0 = tb.NewRow, rw1 = tb.NewRow
    6. rw0.ItemArray = tb(indx0).ItemArray
    7. rw1.ItemArray = tb(indx1).ItemArray
    8. tb.Rows.RemoveAt(indx1)
    9. tb.Rows.RemoveAt(indx0)
    10. tb.Rows.InsertAt(rw1, indx0)
    11. tb.Rows.InsertAt(rw0, indx1)
    12. If enforced Then tb.DataSet.EnforceConstraints = True
    13. End Sub
    Das habe ich getestet mit einer Tabelle ohne Primärschlüssel, und ohne Beziehungen zu anderen Tabellen.
    Gut möglich, dass sich in "richtigen" Szenarien Probleme ergeben.

    Hallo ErfinderDesRades,das war nur eine ausgegliederte Musteranwendung.
    (Das Beispiel war wohl nicht so günstig gewählt.)

    Im konkreten Fall geht es darum das einmalig Schecklisten im Programm erstellt werden können und diese dann zum Kunden (1 zu n Beziehung) gespeichert werden.
    Jetzt kann es aber vorkommen, dass man sich eine Scheckliste mit sagen wir 60 Fragen erstellt hat und im Nachgang feststellt, dass eine weitere Frage die Thematisch sagen wir mal zwischen Frage 30 und 31 passen würde erstellen möchte.
    Oder aber eine Frage Thematisch gesehen lieber an einer anderen Stelle platzieren will.
    Deshalb habe ich nach einer Möglichkeit gesucht die Zeilen zu tauschen.

    Hoffe ich konnte die Problematik verständlich rüber bringen.

    Habe den Code jetzt angepasst.

    VB.NET-Quellcode

    1. ​
    2. Private Sub bt_Tauschen_Click(sender As Object, e As EventArgs) Handles bt_Tauschen.Click
    3. Dim Position1, Position2 As Integer
    5. 'Suche Zeile zu Wert 1 und befülle mit Wert2
    6. Position1 = KundenlisteBindingSource.FindX("Id", Zeile1)
    7. Dim person1 = DirectCast(DirectCast(KundenlisteBindingSource(Position1), DataRowView).Row, KundenlisteRow)
    8. person1.Name = Name2
    9. person1.Adresse = Adresse2
    11. 'Suche Zeile zu Wert 2 und befülle mit Wert1
    12. Position2 = KundenlisteBindingSource.FindX("Id", Zeile2)
    13. Dim person2 = DirectCast(DirectCast(KundenlisteBindingSource(Position2), DataRowView).Row, KundenlisteRow)
    14. person2.Name = Name1
    15. person2.Adresse = Adresse1
    17. End Sub


    Mfg
    darkman203

    (3 Fragen/Themen - wäre nett, du würdest auf jedes bisserl eingehen)

    Und das (der jetzige Code) funktioniert nun?


    annere Frage: BindingSource.FindX() - ist das eine meiner Methoden?
    Weil in dem HelpersProjekt ist auch die BindingSource.At(Of KundenlisteRow)(pos) Methode, mit der man sich diese hässlichen doppelten Casts etwas aus den Augen schafft.


    ...dass eine weitere Frage die Thematisch sagen wir mal zwischen Frage 30 und 31 passen würde erstellen möchte.
    Oder aber eine Frage Thematisch gesehen lieber an einer anderen Stelle platzieren will.
    Das sind aber doch keine Tausch-Vorgänge.
    Sondern a) einfügen, b) moven

    Ein Tausch hingegen ist ein Doppel-Move: das eine Item hin, das annere in Gegen-Richtung.

    Ja das sind deine Methoden/Erweiterungen :thumbup:

    Habe Sie erst kürzlich entdeckt und bin schon jetzt ein riesen Fan davon.
    Danke für den Tipp:

    VB.NET-Quellcode

    1. ​BindingingSource.At
    kannte ich noch nicht.

    Und ja; es funktioniert tadellos.
    Ich muss das jetzt noch alles schön verpacken und dann beim anderen Projekt implementieren.

    Aber ist es aus deiner Sichtweise ok, wenn man die Positionen von Zeilen einer Checkliste verschieben will, oder würdest du das gänzlich anders lösen?


    VB.NET-Quellcode

    1. ​
    3. Private Sub bt_Tauschen_Click(sender As Object, e As EventArgs) Handles bt_Tauschen.Click
    4. Dim Position1, Position2 As Integer
    6. 'Suche Zeile zu Wert 1 und befülle mit Wert2
    7. Position1 = KundenlisteBindingSource.FindX("Id", Zeile1)
    8. Dim person1 = KundenlisteBindingSource.At(Of KundenlisteRow)(Position1)
    9. person1.Name = Name2
    10. person1.Adresse = Adresse2
    12. 'Suche Zeile zu Wert 2 und befülle mit Wert1
    13. Position2 = KundenlisteBindingSource.FindX("Id", Zeile2)
    14. Dim person2 = KundenlisteBindingSource.At(Of KundenlisteRow)(Position2)
    16. person2.Name = Name1
    17. person2.Adresse = Adresse1
    19. End Sub

    vor allem stört mich, dass du diese doch etwas hanebüchene Operation nicht ordentlich in eine Methode kapselst.

    Sieh dir mein Beispiel an - da ist alles klar: Alle für die Operation nötigen Informationen werden als Argumente hineingereicht - sind ja gar net so viele.

    So versteht man meinen Code ganz leicht, und muss sich nicht fragen, wo denn nun so eigentümliche Sachen wie Zeile1, Zeile2, Name2 und Addresse2 herkommen, welchen Datentyp die wohl haben, und was die bedeuten sollen.

    Mangels dieses Durchblicks kann ich nur den Aufbau bemängeln, aber vonne Funktion her nicht, weil die verstehe ich garnet.
    Und da dein Problem was mit Checklisten zu tun hat, dein Code aber nichts von Checklisten zeigt, sondern nur von Kunden - also wenns in deinem Sinne funktioniert - fein!

    Denke so sollte es jetzt ok sein?


    VB.NET-Quellcode

    1. ​
    3. 'Erste Zeile im DGV auswählen
    4. Private Sub bt_Wert1_Click(sender As Object, e As EventArgs) Handles bt_Wert1.Click
    5. Dim _Zeile1 = SchecklisteBindingSource.At(Of SchecklisteRow)()
    6. Id1 = _Zeile1.Id
    7. Frage1 = _Zeile1.Frage
    8. InfoText1 = _Zeile1.InfoText
    9. Status1 = _Zeile1.Status
    10. End Sub
    12. 'Zweite Zeile im DGV auswählen
    13. Private Sub bt_Wert2_Click(sender As Object, e As EventArgs) Handles bt_Wert2.Click
    14. Dim _Zeile2 = SchecklisteBindingSource.At(Of SchecklisteRow)()
    15. Id2 = _Zeile2.Id
    16. Frage2 = _Zeile2.Frage
    17. Infotext2 = _Zeile2.InfoText
    18. status2 = _Zeile2.Status
    19. End Sub


    VB.NET-Quellcode

    1. ​
    2. 'Den Inhalt der Ersten Zeile in die Zeite und umgekehrt schreiben.
    3. Private Sub bt_Tauschen_Click(sender As Object, e As EventArgs) Handles bt_Tauschen.Click
    5. 'Suche Zeile1 und befülle mit Daten vo Zeile2
    6. ZeilenTauschen(SchecklisteBindingSource, "Id", Id1, Frage2, Infotext2, Status2)
    8. 'Suche Zeile2 und befülle mit Daten von Zeile1
    9. ZeilenTauschen(SchecklisteBindingSource, "Id", Id2, Frage1, InfoText1, Status1)
    11. End Sub


    VB.NET-Quellcode

    1. ​
    3. ''' <summary>
    4. '''2 Zeilen Tauschen
    5. ''' </summary>
    6. ''' <param name="_Bindingsource">Die BindingSource</param>
    7. ''' <param name="_Spalte">Der Spaltenname, wo nach gesucht werden soll</param>
    8. ''' <param name="_Id">Der Wert der _Spalte wonach gesucht werden soll.</param>
    9. ''' <param name="_Frage">Die Frage die in der Scheckliste steht.</param>
    10. ''' <param name="_InfoText">Der Infotext der in der Scheckliste steht.</param>
    11. ''' <param name="_Status">Der Stauts der in der Scheckliste steht.</param>
    12. ''' <returns></returns>
    13. ''' <remarks></remarks>
    14. Public Function ZeilenTauschen(ByVal _Bindingsource As BindingSource, ByVal _Spalte As String, ByVal _Id As Integer, ByVal _Frage As String, ByVal _InfoText As String, ByVal _Status As Boolean)
    16. Dim Position = _Bindingsource.FindX(_Spalte, _Id)
    17. Dim Wert = _Bindingsource.At(Of SchecklisteRow)(Position)
    18. Wert.Frage = _Frage
    19. Wert.InfoText = _InfoText
    20. Wert.Status = _Status
    21. _Bindingsource.EndEdit()
    23. Return Nothing
    24. End Function



    MFG
    darkman203

    Die Methode heißt zwar ZeilenTauschen, aber sie macht was ganz anderes: Sie füllt einfach ein paar Werte in eine SchecklisteRow.

    Das könnte man auch wesentlich einfacher haben.

    Ich würde auch keine Tausch-Funktionalität coden, sondern eine Move-Funktionalität.
    Dazu wählt man einen Datensatz an, und klickst ein "Select"-Menü, was nix macht, als sich die derzeitig gewählte Position zu merken.
    Dann geht man auf die Ziel-Position und klickst ein "Paste"-Menü. Hierbei wird die DataRow von der gemerkten auf die aktuelle Position verschoben.


    Edit: Ach, das wichtigste glatt vergessen: Visual Studio - Empfohlene Einstellungen
    Must-Read, Must-Do - no Excuses!

    Mit den VorEinstellungen, in denen VB.Net ausgeliefert wird, ist es keine ernstzunehmende objektorientierte Sprache, und es ist im Grunde garnicht möglich, damit vernünftig programmieren zu lernen.

    Im Gegenteil: Man lernt damit zwangsläufig unvernünftig zu programmieren, und das ist schlimmer als wenn mans garnet lernte.

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

    Guten Morgen ErfinderDesRades,

    hmmm sehe schon habe mal wieder zu kompliziert gedacht.....
    Ich progge übrigens nur für mich alleine um mir meine tägliche Arbeit ein wenig zu vereinfachen...leider muss ich immer wieder feststellen das mir da noch ne Menge Wissen fehlt.

    Wie dem auch sei, hier meine Überarbeitete Version.


    VB.NET-Quellcode

    1. #Region "Audit Fragen verschieben rauf, runter."
    3. Dim _Startzeile As ds_Audit_Katalog.Audit_FragenRow
    4. Dim _Start_Id As Integer = Nothing
    5. Dim Tauschen As Boolean = False
    7. Private Sub bt_Einstellungen_Audtit_Frage_runter_Click(sender As Object, e As EventArgs) Handles bt_Einstellungen_Audtit_Frage_runter.Click
    9. 'Beim ersten click Werte und Position der Startzeile ermitteln
    10. If Tauschen = False Then
    11. _Startzeile = FKAuditTypenAuditFragenBindingSource.At(Of ds_Audit_Katalog.Audit_FragenRow)()
    12. _Start_Id = FKAuditTypenAuditFragenBindingSource.Position
    13. End If
    15. 'In der Liste einen runter springen
    16. FKAuditTypenAuditFragenBindingSource.Position += 1
    18. 'Tauschen auf True setzen, damit die Startzeile nicht überschrieben wird
    19. Tauschen = True
    20. End Sub
    22. Private Sub bt_Einstellungen_Audit_Frage_Rauf_Click(sender As Object, e As EventArgs) Handles bt_Einstellungen_Audit_Frage_Rauf.Click
    23. 'Beim ersten click Werte und Position der Startzeile ermitteln
    24. If Tauschen = False Then
    25. _Startzeile = FKAuditTypenAuditFragenBindingSource.At(Of ds_Audit_Katalog.Audit_FragenRow)()
    26. _Start_Id = FKAuditTypenAuditFragenBindingSource.Position
    27. End If
    29. 'In der Liste einen rauf springen
    30. FKAuditTypenAuditFragenBindingSource.Position -= 1
    32. 'Tauschen auf True setzen, damit die Startzeile nicht überschrieben wird
    33. Tauschen = True
    34. End Sub
    36. Private Sub bt_Einstellungen_Audit_Fragen_Tauschen_Click(sender As Object, e As EventArgs) Handles bt_Einstellungen_Audit_Fragen_Tauschen.Click
    38. 'Werte der Aktuellen Zeile Speichern
    39. Dim AktuelleZeile = FKAuditTypenAuditFragenBindingSource.At(Of ds_Audit_Katalog.Audit_FragenRow)()
    40. Dim Frage As String = AktuelleZeile.Frage
    41. Dim ToDo As String = AktuelleZeile.ToDo
    43. 'Werte der Aktuellen Zeile mit den Werten der Startzeile überschreiben
    44. AktuelleZeile.Frage = _Startzeile.Frage
    45. AktuelleZeile.ToDo = _Startzeile.ToDo
    46. FKAuditTypenAuditFragenBindingSource.EndEdit()
    48. 'Werte der Startzeile mit der zuletzt ausgewählten Zeile überschreiben
    49. FKAuditTypenAuditFragenBindingSource.Position = _Start_Id
    50. Dim Zeile = FKAuditTypenAuditFragenBindingSource.At(Of ds_Audit_Katalog.Audit_FragenRow)()
    51. Zeile.Frage = Frage
    52. Zeile.ToDo = ToDo
    53. FKAuditTypenAuditFragenBindingSource.EndEdit()
    55. Tauschen = False
    56. End Sub
    58. #End Region


    PS: Ich würde auch gerne mal ein Bild anhängen, komme jedoch mit der Funktion nicht klar. (URL?)

    @TE: Willst du noch verbesserungs-Hinweise?
    du brauchst nicht 3 Klassen-Variablen, sondern es reicht eine Variable _TauschZeilPosition. Ist sie negativ, bedeutet das, dass nicht getauscht wird, ist sie positiv, soll getauscht werden, und die Tauschzeile kannst du dann ja nochmal abrufen, wenns soweit ist.

    Prinzip: Je weniger klassenvariablen in einer Klasse herumfahren, desto besser.

Facebook
Telefonspende