Speicherabfrage bei geändertem Datarow

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

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

    Speicherabfrage bei geändertem Datarow

    Ich möchte bei wechsel einer Datarow prüfen ob an dieser Felder geändert wurden.
    Ein dirty Flag habe ich weder bei der Datarow noch bei Bindingsource.current gefunden.
    Nun habe ich mir schon selber eine Booleanvariable dirty angelegt und die beim Hinzufügen einer datarow auf true gesetzt.
    Beim Speichern frage ich diese ab. Soweit funktioniert es auch ganz gut.
    Wie kann ich das aber beim Wechsel der Datarow bzw Bindingsource.current regeln ?
    Bei welchem Ereignis sind alle Felder gefüllt, so das ich blnDirty = false setzen kann ?
    Die Änderung der einzelnen Felder versuche ich so abzugreifen.

    VB.NET-Quellcode

    1. ​
    2. Private Sub bsAnwendung_CurrentItemChanged(sender As Object, e As EventArgs) Handles bsAnwendung.CurrentItemChanged
    3. blnDirty = True
    4. End Sub

    Danke, aber die greift für das gesamte Dataset, ich möchte aber nur wissen ob sich im Bindingsource.current was geändert hat, bevor ich in die Datenbank zurückschreibe.
    Außerdem ist der Wert bei mir true auch wenn ich aktuell nichts geändert habe.

    Evtl. Helfen dir ja die DataTable Events? Da gibts glaub eins, dass das dir sagt ob es in der DataRow Änderungen gab.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Klappt leider nicht.
    Obwohl ein Feld der Datarow nachweislich geändert wurde, per messagebox.show(DtrowAnwendung.Anwendung) überprüft steht rowstate auf unchanged.
    Setze ich ein bsAnwendung.endedit davor wird es immer modfied.

    VB.NET-Quellcode

    1. ​
    2. Private Sub tvwAnwendungen_NodSelect(sender As Object, e As TreeViewEventArgs) Handles tvwAnwendungen.NodSelect
    3. If Me.bsAnwendung.Current IsNot Nothing Then
    5. dtrowAnwendung = DirectCast(DirectCast(Me.bsAnwendung.Current, DataRowView).Row, dsRechnerliste_be.tbl_AnwendungRow)
    6. MessageBox.Show(dtrowAnwendung.Anwendung)
    7. If dtrowAnwendung.RowState = DataRowState.Modified Then
    8. Select Case MessageBox.Show("Die Anwendung " & Me.txtAnwendung.Text & " wurde noch nicht gespeichert. " & NewLine &
    9. " Wollen Sie diese jetzt speichern ?", "Speicherabfrage", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
    10. Case DialogResult.OK
    11. speichern()
    12. Case DialogResult.Cancel
    13. Exit Sub
    14. Case DialogResult.No
    15. bsAnwendung.CancelEdit()
    16. End Select
    17. End If
    18. End If
    19. nodAnwendungen = DirectCast(e.Node, nodAnwendung)
    20. Me.bsAnwendung.Position = Me.bsAnwendung.Find(Rechnerliste.tbl_Anwendung.ID_AnwendungColumn.ColumnName, nodAnwendungen.ID)
    21. If Me.bsAnwendung.Current IsNot Nothing Then
    22. dtrowAnwendung = DirectCast(DirectCast(Me.bsAnwendung.Current, DataRowView).Row, dsRechnerliste_be.tbl_AnwendungRow)
    23. Me.txtBelegt.Text = "0"
    24. If dtrowAnwendung.Gettbl_A_Anwendung_RechnerRows.Count > 0 Then
    25. If Not Me.tabControl.TabPages.Contains(tabRechnerliste) Then
    26. Me.tabControl.TabPages.Add(Me.tabRechnerliste)
    27. End If
    28. Me.txtBelegt.Text = dtrowAnwendung.Gettbl_A_Anwendung_RechnerRows.Count.ToString
    29. Me.lblwas.Text = "Rechner"
    30. Else
    31. If Me.tabControl.TabPages.Contains(tabRechnerliste) Then
    32. Me.tabControl.TabPages.Remove(Me.tabRechnerliste)
    33. End If
    34. End If
    35. If dtrowAnwendung.Gettbl_A_Anwendung_NutzerRows.Count > 0 Then
    36. If Not Me.tabControl.TabPages.Contains(tabNutzerListe) Then
    37. Me.tabControl.TabPages.Add(Me.tabNutzerListe)
    38. End If
    39. Me.txtBelegt.Text = dtrowAnwendung.Gettbl_A_Anwendung_NutzerRows.Count.ToString
    40. Me.lblwas.Text = "Nutzer"
    41. Else
    42. If Me.tabControl.TabPages.Contains(tabNutzerListe) Then
    43. Me.tabControl.TabPages.Remove(Me.tabNutzerListe)
    44. End If
    45. End If
    46. If dtrowAnwendung.IsmaxAnzNull Then
    47. Me.MaxAnzTextBox.Visible = False
    48. Me.lblStrich.Visible = False
    49. Me.lblwas.Location = Me.lblStrich.Location
    50. Else
    51. Me.MaxAnzTextBox.Visible = True
    52. Me.lblStrich.Visible = True
    53. Me.lblwas.Location = intposWas
    54. End If
    55. End If
    56. End Sub

Facebook
Telefonspende