Wert in DataTable mit Helpers.dll - EditCurrent(of ...)

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

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von tragl.

    Wert in DataTable mit Helpers.dll - EditCurrent(of ...)

    Hallo ihr lieben
    Ich nutze zum Ändern / Erstellen von Einträgen in meiner DataTable gerne die Helpers vom @ErfinderDesRades
    Hier ist es so, dass scheinbar eine Prüfung auf den korrekten Datentyp eingebaut ist.
    Wenn also in meiner DataTable eine Spalte als "Date" deklariert ist, so ist es nicht möglich hier z.B. "123" einzugeben.

    Die Form akzeptiert keine weiteren Eingaben, oder Button Klicks, solange ein Wert in einer Textbox vom falschen Format ist.
    Das ist prinzipiell wunderbar, weil ich mich dann nicht mit der Validierung der Eingaben rumärgern muss, es führt aber auch dazu, dass ein eingegebener Wert nicht gelöscht werden kann.

    Steht also schon ein Datum drinne, ist es nicht möglich dies zu löschen - weil ich hierdurch ja quasi einen ungültigen Datentyp erzeuge.
    Gibt es hierfür eine Lösung, oder hilft da nur etwas eigenes zu erstellen?

    @DerSmurf Der @ErfinderDesRades hat doch die Quellen seiner Helper-DLL hier veröffentlicht, such mal im Forum gezielt danach.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    DerSmurf schrieb:

    Steht also schon ein Datum drinne, ist es nicht möglich dies zu löschen - weil ich hierdurch ja quasi einen ungültigen Datentyp erzeuge.
    Was passiert denn, wenn du es versuchst?
    Und wie versuchst du es - per Code?
    Oder markierst du Zeichen in der Textbox, und drückst Entf?
    Oder per Backspace-Taste?
    Oder ists gar keine Textbox, sondern vielleicht eine Richtextbox?
    Oder noch was anneres - ein DatetimePicker?
    Ist in der Spalte überhaupt Null erlaubt? Weil wenn es das nicht ist, ist das Verhalten, dass du den Eintrag nicht löschen willst, ja zwingend notwendig.

    DerSmurf schrieb:

    Gibt es hierfür eine Lösung, oder hilft da nur etwas eigenes zu erstellen?


    Ich bin das umgangen, indem ich für die entsprechenden Felder jeweils ein Behavior gebaut habe - also ein Handling für z.B. Textbox, welches nur bestimmte Eingaben erlaubt.
    Ist evtl. nicht ganz das, wonach du suchst aber seitdem hab ich dein geschildertes Problem nicht mehr. Einfach beim Form_Load-Event die entsprechenden Textboxen registrieren.
    Findest du auch in meinem Planer-Projekt in den Helpers unter "ControlBehavior.vb"

    Hier mal ein Beispiel für eine "DateTextBox":



    Spoiler anzeigen

    Visual Basic-Quellcode

    1. #Region "DateTextBox"
    3. ''' <summary>
    4. ''' bewirkt, dass nur ein Datum in die Textboxen eingegeben werden kann - akzeptiert auch verkürzte Datum-Syntax:
    5. ''' "d", "dd", "dMM", "ddMM", und Space (darüber wird direkt das aktuelle Datum in die Textbox eingefügt)
    6. ''' Überprüft beim Verlassen der TextBox NICHT, ob die Eingabe korrekt war.
    7. ''' </summary>
    8. ''' <param name="dateTextBoxes"></param>
    9. Public Sub RegisterDateInputNoCheck(ParamArray dateTextBoxes As TextBox())
    10. For Each dtb In dateTextBoxes
    11. AddHandler dtb.Enter, AddressOf TextBox_Enter
    12. AddHandler dtb.KeyDown, AddressOf dtb_KeyDown
    13. AddHandler dtb.Leave, AddressOf dtb_Leave_noCheck
    14. Next
    15. End Sub
    17. ''' <summary>
    18. ''' bewirkt, dass nur ein Datum in die Textboxen eingegeben werden kann - akzeptiert auch verkürzte Datum-Syntax:
    19. ''' "d", "dd", "dMM", "ddMM", und Space (darüber wird direkt das aktuelle Datum in die Textbox eingefügt)
    20. ''' Überprüft beim Verlassen der Textbox auf korrekte Eingabe.
    21. ''' </summary>
    22. ''' <param name="dateTextBoxes"></param>
    23. Public Sub RegisterDateInput(ParamArray dateTextBoxes As TextBox())
    24. For Each dtb In dateTextBoxes
    25. AddHandler dtb.Enter, AddressOf TextBox_Enter
    26. AddHandler dtb.KeyDown, AddressOf dtb_KeyDown
    27. AddHandler dtb.Leave, AddressOf dtb_Leave
    28. Next
    29. End Sub
    31. ''' <summary>
    32. ''' hebt die Registrierung von "RegisterDateInput" wieder auf
    33. ''' </summary>
    34. ''' <param name="dateTextBoxes"></param>
    35. Public Sub unRegisterDateInput(ParamArray dateTextBoxes As TextBox())
    36. For Each dtb In dateTextBoxes
    37. RemoveHandler dtb.Enter, AddressOf TextBox_Enter
    38. RemoveHandler dtb.KeyDown, AddressOf dtb_KeyDown
    39. RemoveHandler dtb.Leave, AddressOf dtb_Leave
    40. Next
    41. End Sub
    43. Private Sub dtb_KeyDown(sender As Object, e As KeyEventArgs)
    44. Dim tb = DirectCast(sender, TextBox)
    45. Select Case e.KeyCode
    46. Case Keys.Space : tb.Text = Date.Today.ToShortDateString
    47. Case Keys.Enter : tb.SelectNextControl(tb, True, True, True, True)
    48. Case Keys.D0 To Keys.D9, Keys.NumPad0 To Keys.NumPad9, Keys.OemPeriod, Keys.Back 'nur Ziffern "." und Backspace zulassen
    49. Case Keys.Shift, Keys.Home, Keys.End, Keys.Delete, Keys.Left, Keys.Right
    50. Case Else : e.SuppressKeyPress = True 'alle anderen Eingaben ablehnen
    51. End Select
    52. End Sub
    54. Private Sub dtb_Leave_noCheck(sender As Object, e As EventArgs)
    55. Dim dateResult As Date
    56. Dim tb = DirectCast(sender, TextBox)
    57. If DateTryParseSpecial(tb.Text, dateResult) Then
    58. tb.Text = dateResult.ToShortDateString
    59. tb.ForeColor = SystemColors.WindowText
    60. End If
    61. End Sub
    63. Private Sub dtb_Leave(sender As Object, e As EventArgs)
    64. Dim dateResult As Date
    65. Dim tb = DirectCast(sender, TextBox)
    66. If DateTryParseSpecial(tb.Text, dateResult) Then
    67. tb.Text = dateResult.ToShortDateString
    68. tb.ForeColor = SystemColors.WindowText
    69. Else
    70. tb.Text = "ungültiges Datum"
    71. tb.ForeColor = Color.Red
    72. End If
    73. End Sub
    75. Private Function DateTryParseSpecial(txt As String, ByRef result As Date) As Boolean
    76. If Date.TryParse(txt, result) Then Return True
    77. Dim chars = txt.ToCharArray
    78. Dim tag = "", monat = Date.Today.Month.ToString, jahr = Date.Today.Year.ToString
    79. Select Case txt.Length
    80. Case 1 : tag = {chars(0)}
    81. Case 2 : tag = {chars(0), chars(1)}
    82. Case 3 : tag = {chars(0), chars(1)} : monat = {chars(2)}
    83. Case 4, 6, 8
    84. tag = {chars(0), chars(1)} : monat = {chars(2), chars(3)}
    85. If txt.Length > 4 Then jahr = txt.Substring(4)
    86. Case Else : Return False
    87. End Select
    88. Return Date.TryParse($"{tag}.{monat}.{jahr}", result)
    89. End Function
    90. #End Region 'DateTextBox
    92. #Region "SharedMethods"
    94. Private Sub TextBox_Enter(sender As Object, e As EventArgs)
    95. Dim tb = DirectCast(sender, TextBox)
    96. tb.SelectAll()
    97. End Sub
    99. Private Sub TextBox_numericKeyDown(sender As Object, e As KeyEventArgs)
    100. Dim tb = DirectCast(sender, TextBox)
    101. Select Case e.KeyCode
    102. Case Keys.Space : tb.Text = Date.Today.Year.ToString
    103. Case Keys.D0 To Keys.D9, Keys.NumPad0 To Keys.NumPad9, Keys.Back 'nur Ziffern und Backspace zulassen
    104. Case Keys.Shift, Keys.Home, Keys.End, Keys.Delete, Keys.Left, Keys.Right
    105. Case Else : e.SuppressKeyPress = True 'alle anderen Eingaben ablehnen
    106. End Select
    107. End Sub
    109. #End Region 'SharedMethods
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    RodFromGermany schrieb:

    Der @ErfinderDesRades hat doch die Quellen seiner Helper-DLL hier veröffentlicht, such mal im Forum gezielt danach.

    Ja. Weil ich den Code aber nur so halbwegs verstehe, mag ich da nur ungerne drin rumfurwerken.

    @ErfinderDesRades
    Ich habe wie in deiner Anleitung beschrieben eine Form erstellt, welche die Daten in Textboxen anzeigen.
    Dort versuche ich innerhalb der Form das Datum zu löschen - also den Inhalt der Textbox zu entfernen.
    Hierbei ist es egal, ob ich dies mit Backspace, oder Entf Taste, oder einzelne Zeichen, oder den gesamte Inhalt lösche.
    Sobald ich das gültige Datum entfernt habe, kann ich die Textbox nicht verlassen - also keine andere TB anwählen, oder die Buttons mit DialogResult OK oder Cancel bedienen.
    Erst wenn, die TB wieder ein gültiges Datum enthält gehts weiter.
    So ist also das löschen unmöglich.

    DerSmurf schrieb:

    mag ich da nur ungerne drin rumfurwerken.
    Das ist ein gigantisches Lern-Potenzial.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    DerSmurf schrieb:

    So ist also das löschen unmöglich.


    Wenn das DataSet Datum verlangt, kannste das nicht einfach leer lassen. Dann musste mit Pseudo-Datum arbeiten (z.B. 01.01.1900) und lässt dir das im DataGridView oder wo auch
    immer ausblenden, wenn es dem Wert entspricht. Mach ich bei meiner Anwendung z.B. so.

    Anders wäre der Datensatz ja nicht komplett, wenn du statt dem geforderten Date ein "" drin stehn hast ;)
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Ich habs jetzt beforscht - stimmt: An Nullable-Date-Spalten gebundene Textboxen verhalten sich bescheuert.
    Das hat aber mit den Dataset-Extensions nix zu tun.
    Die Lösung besteht darin, dem Binding ein NullValue mitzuteilen - also einen Wert, den die BindingSource als <DbNull> übersetzt, wenn sie die Eingabe in die DataSource übernimmt.
    Idiotischerweise kann man im Designer in den (Advanced) Databinding-Einstellungen eigentlich solche NullValues festlegen - aber grad bei Textboxen kann man im Designer grad '' nicht als NullValue festlegen.
    Anderes kann man als NullValue festlegen, aber grad '' wird nicht angenommen :thumbdown: .
    Das muss man dann codeseitig machen.

    Habe dazu NullableDateTimePicker um ein weiteres CodeSample erweitert, wo's auch nochmal genauer erklärt ist.
    Auch um Reklame zu machen für mein NullableDateTimePicker. Weil Textboxen zur Datum-Eingabe zu nutzen ist recht fragwürdig.
    Bzw. es ist höchst schwierig, eine Datum-Textbox wasserdicht zu implementieren.

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

Facebook
Telefonspende