Bindingssoure löscht falschen Datensatz

  • VB.NET
  • .NET (FX) 4.0

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Westerwälder.

    Bindingssoure löscht falschen Datensatz

    Hallo und guten Abend zusammen.

    Beschäftige mich seit zwei Tagen mit dem gleichen Problem.
    Binde wechselnde Datenquellen an ein DGV.

    Problem 1:
    Bei der Datensatzlöschung wird immer der erste Datensatz des DGV und nicht der markierte Datensatz gelöscht.

    Problem 2:
    Möchte ich nach der Neuanlage eines Datensatzes diesen wieder löschen, erhalte ich eine Parallelitätsverletzung.




    Spoiler anzeigen

    VB.NET-Quellcode

    1. Me.DGV_Dokumente.DataSource = Nothing
    2. Me.DGV_Dokumente.Rows.Clear()
    3. Dokumente.Filterdaten = New DataView
    4. Dokumente.DataQuelle = New BindingSource
    6. If Me.DatenModus = "A" Then
    7. Dim FilterAlle = From order In Dokumente.DataTabelle.AsEnumerable()
    8. Where order.Field(Of Integer)("Nummer") > 100000
    9. Select order
    11. Dokumente.Filterdaten = FilterAlle.AsDataView
    12. Dokumente.DataQuelle.DataSource = Dokumente.Filterdaten
    13. End If
    16. If Me.DatenModus = "B" Then
    17. Dim FilterBrief = From order In Dokumente.DataTabelle.AsEnumerable()
    18. Where order.Field(Of Boolean)("Brief") = True
    19. Select order
    21. Dokumente.Filterdaten = FilterBrief.AsDataView
    22. Dokumente.DataQuelle.DataSource = Dokumente.Filterdaten
    23. End If
    25. If Me.DatenModus = "F" Then
    26. Dim FilterFax = From order In Dokumente.DataTabelle.AsEnumerable()
    27. Where order.Field(Of Boolean)("Fax") = True
    28. Select order
    30. Dokumente.Filterdaten = FilterFax.AsDataView
    31. Dokumente.DataQuelle.DataSource = Dokumente.Filterdaten
    32. End If
    34. With Me.DGV_Dokumente
    35. .DataSource = Dokumente.DataQuelle.DataSource
    36. .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    37. .EnableHeadersVisualStyles = False
    38. .Columns("ID").Visible = False
    39. .Columns("Type").Visible = False
    40. .Columns("Vorlagennummer").Visible = False
    41. .Columns("Aktenummer").Visible = False
    42. .Columns("Kontaktnummer").Visible = False
    43. .Columns("Speichername").Visible = False
    44. .Columns("Brief").Visible = False
    45. .Columns("Fax").Visible = False
    46. .Columns("Email").Visible = False
    47. .Columns("Betreff").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    48. .Columns("Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    49. .Columns("Datum").DefaultCellStyle.Format = "d"
    50. End With


    Hier nun das Löschen

    VB.NET-Quellcode

    1. If Vorgang = "L" Then ' Löschung
    2. Dokumente.Speicherdatei = Dokumente.Pfad & Me.DGV_Dokumente.CurrentRow.Cells("Speichername").Value.ToString
    3. ' If IO.File.Exists(Dokumente.Speicherdatei) Then IO.File.Delete(Dokumente.Speicherdatei)
    5. ' Me.DGV_Dokumente.Rows.Remove(Me.DGV_Dokumente.CurrentRow) 'Funktioniert
    7. Me.DGV_Dokumente.EndEdit()
    8. Dokumente.DataQuelle.RemoveCurrent()
    10. 'Me.Validate()
    11. 'Dokumente.Speichern()
    12. Me.Bearbeitung_Cleaing()
    13. End If




    Gruß Markus

    Habe nun eine frische Form erstellt mit einem DGV und nichts manipuliert.

    VB.NET-Quellcode

    1. Public Class Test_DGV
    2. Private Sub Test_DGV_Load(sender As Object, e As EventArgs) Handles Me.Load
    3. Dokumente = New MBC_MBSOFT.CDokumente
    4. With Dokumente
    5. .Datenverbindung = New OleDb.OleDbConnection(Daten.Verbindungsstring_MBSOFT)
    6. .VerbindungsAuftrag = "Select * From Dokumente"
    7. .MitBinding = True
    8. .PrimKeyName = "ID"
    9. .Initalisieren()
    10. End With
    11. Me.DGV.DataSource = Dokumente.DataQuelle.DataSource
    12. End Sub
    14. Private Sub TS_Aus_Click(sender As Object, e As EventArgs) Handles TS_Aus.Click
    15. Me.Close()
    16. End Sub
    18. Private Sub TS_Loeschen_Click(sender As Object, e As EventArgs) Handles TS_Loeschen.Click
    19. Dokumente.DataQuelle.RemoveCurrent()
    20. End Sub
    21. End Class


    Es wird weiterhin der erste Datensatz im DGV gelöscht.
    Vielleicht liegt es an der Daten-Lesung. Habe diese automatisiert.

    VB.NET-Quellcode

    1. Public Sub Initalisieren()
    3. Me.IstInitalisiert = False
    5. If Me.Nummer_Feld = Nothing Then Me.Nummer_Feld = "Nummer"
    6. If Me.Datenverbindung Is Nothing Then Me.Datenverbindung = New OleDbConnection(Daten.Verbindungsstring_MBSOFT)
    8. DataAdapter = New OleDb.OleDbDataAdapter(Me.VerbindungsAuftrag, Me.Datenverbindung)
    9. DataBuilder = New OleDb.OleDbCommandBuilder(DataAdapter)
    10. DataBuilder.QuotePrefix = "["
    11. DataBuilder.QuoteSuffix = "]"
    12. DataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
    13. DataTabelle = New DataTable
    14. DataAdapter.FillSchema(DataTabelle, SchemaType.Mapped)
    15. DataAdapter.Fill(DataTabelle)
    16. If Not Me.PrimKeyName = Nothing Then DataTabelle.PrimaryKey = New DataColumn() {DataTabelle.Columns(Me.PrimKeyName)}
    17. TabellenName = DataTabelle.TableName
    18. If Me.MitBinding Then DataQuelle.DataSource = DataTabelle
    19. DataZeile = DataTabelle.NewRow
    20. IstInitalisiert = True
    21. WurdeInitalisiert = True
    22. If Not DataTabelle.Rows.Count < 1 Then WertZeile = DataTabelle.Rows(0)
    24. MeinInstall()
    26. End Sub


    Denke ich habe den Fehler gefunden:
    Falsch: Me.DGV.DataSource = Dokumente.DataQuelle.DataSource
    Richtig: Me.DGV.DataSource = Dokumente.DataQuelle
    Gruß Markus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Westerwälder“ ()

Facebook
Telefonspende