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?
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
VB.NET-Quellcode
- Private Sub bt_Wert1_Click(sender As Object, e As EventArgs) Handles bt_Wert1.Click
- Dim rwZeile1 = KundenlisteBindingSource.At(Of KundenlisteRow)()
- Zeile1 = rwZeile1.Id
- Name1 = rwZeile1.Name
- Adresse1 = rwZeile1.Adresse
- rwZeile1.Delete()
- End Sub
- Private Sub bt_Wert2_Click(sender As Object, e As EventArgs) Handles bt_Wert2.Click
- Dim rwZeile2 = KundenlisteBindingSource.At(Of KundenlisteRow)()
- Zeile2 = rwZeile2.Id
- Name2 = rwZeile2.Name
- Adresse2 = rwZeile2.Adresse
- rwZeile2.Delete()
- End Sub
VB.NET-Quellcode
- Private Sub bt_Tauschen_Click(sender As Object, e As EventArgs) Handles bt_Tauschen.Click
- KundenlisteBindingSource.AddNew()
- Dim NeueZeile = KundenlisteBindingSource.At(Of KundenlisteRow)()
- NeueZeile.Id = Zeile2
- NeueZeile.Name = Name1
- NeueZeile.Adresse = Adresse1
- KundenlisteBindingSource.EndEdit()
- KundenlisteBindingSource.AddNew()
- Dim NeueZeile2 = KundenlisteBindingSource.At(Of KundenlisteRow)()
- NeueZeile2.Id = Zeile1
- NeueZeile2.Name = Name2
- NeueZeile2.Adresse = Adresse2
- KundenlisteBindingSource.EndEdit()
- KundenlisteDataGridView.Refresh()
- KundenlisteBindingSource.Sort = "Id DESC"
- End Sub