Datagridview (einfach befüllt) mit Wertebearbeitung - Datum zuweisen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von VB1963.

    Datagridview (einfach befüllt) mit Wertebearbeitung - Datum zuweisen

    Moin!

    ich habe ein einfaches Datagridview erstellt für eine Wertebearbeitung.



    Die Daten werden einfach zugewiesen und später auch ausgelesen.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    2. Imports System.Data
    3. Imports System.Collections
    5. Public Class frm_GsewGenehmigung_EditTags
    6. Private _Data As New Dictionary(Of String, String)
    7. Public Sub New(Data As Dictionary(Of String, String))
    9. ' Dieser Aufruf ist für den Designer erforderlich.
    10. InitializeComponent()
    12. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    13. _Data = Data
    14. End Sub
    15. Public ReadOnly Property Tags2Set() As Dictionary(Of String, String)
    16. Get
    17. Return _Data
    18. End Get
    19. End Property
    21. ''' <summary>
    22. ''' Abfangen von Fehlern in der Befüllung - Projekt
    23. ''' </summary>
    24. Private Sub DataGridView_DataError(ByVal sender As Object,
    25. ByVal e As DataGridViewDataErrorEventArgs) _
    26. Handles DataGridView.DataError
    28. MessageBox.Show("Fehler aufgetreten " _
    29. & e.Context.ToString())
    31. If (e.Context = DataGridViewDataErrorContexts.Commit) _
    32. Then
    33. MessageBox.Show("Fehler übergeben (commit)")
    34. End If
    35. If (e.Context = DataGridViewDataErrorContexts _
    36. .CurrentCellChange) Then
    37. MessageBox.Show("Zell wechsel")
    38. End If
    39. If (e.Context = DataGridViewDataErrorContexts.Parsing) _
    40. Then
    41. MessageBox.Show("Parsing-Fehler")
    42. End If
    43. If (e.Context =
    44. DataGridViewDataErrorContexts.LeaveControl) Then
    45. MessageBox.Show("Fehler beim Verlassen des Steuerelementes")
    46. End If
    48. If (TypeOf (e.Exception) Is ConstraintException) Then
    49. Dim view As DataGridView = CType(sender, DataGridView)
    50. view.Rows(e.RowIndex).ErrorText = "ein Fehler"
    51. view.Rows(e.RowIndex).Cells(e.ColumnIndex) _
    52. .ErrorText = "ein Fehler"
    54. e.ThrowException = False
    55. End If
    56. End Sub
    57. Private Sub Data2Grid()
    59. Try
    60. DataGridView.Rows.Clear()
    61. Dim ErrMsgDetail As String = ""
    63. Try
    64. ErrMsgDetail = "Schleifenbeginn"
    65. For Each kvp As KeyValuePair(Of String, String) In _Data
    67. ' Tabelle befüllen
    68. Dim row As ArrayList = New ArrayList From {
    69. kvp.Key.ToString,
    70. ""
    71. }
    73. DataGridView.Rows.Add(row.ToArray)
    74. Next
    75. Catch ex As Exception
    76. MessageBox.Show("Fehler beim Datensatz auslesen (Spalte:= " & ErrMsgDetail & ")" & Environment.NewLine & ex.ToString)
    77. End Try
    79. Catch ex As Exception
    81. MessageBox.Show("Fehler beim Befüllen der Datentabelle'" & Environment.NewLine & ex.ToString, "Fehler in Anwendung", MessageBoxButtons.OK, MessageBoxIcon.Error)
    82. End Try
    84. End Sub
    85. Private Sub frm_EditGenehmigungTags_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    86. Data2Grid()
    87. End Sub
    89. Private Sub bt_Clipboard_Click(sender As Object, e As EventArgs) Handles bt_Clipboard.Click
    90. Dim Msg As String = ""
    91. For Each kvp As KeyValuePair(Of String, String) In _Data
    93. Msg &= kvp.Key.ToString() & Environment.NewLine
    94. Next
    96. My.Computer.Clipboard.SetText(Msg)
    97. MessageBox.Show("Tags der Word-Dokumente im Zwischenspeicher", "Administration", MessageBoxButtons.OK, MessageBoxIcon.Information)
    98. End Sub
    100. Private Sub bt_Anwenden_Click(sender As Object, e As EventArgs) Handles bt_Anwenden.Click
    101. Dim Result As New Dictionary(Of String, String)
    103. Dim xRow As Integer = 0
    104. For Each Zeile As DataGridViewRow In DataGridView.Rows
    105. Dim Key As String = DataGridView.Rows(xRow).Cells(0).Value
    106. Dim Value As String = DataGridView.Rows(xRow).Cells(1).Value
    107. If String.IsNullOrEmpty(Value) = False Then Result.Add(Key, Value)
    108. xRow = xRow + 1
    109. Next
    111. _Data = Result
    113. Me.Close()
    115. End Sub
    116. End Class



    Hier nun mein Wunsch und die Frage, ob es (wie) geht oder alles nur ein Wunschgedanke bleibt.

    1.) Wenn ich eine Zelle (2. Spalte) für die Bearbeitung anklicke sind hierfür in der Regel 2-3 Klicks erforderlich - geht das auch einfacher?
    2.) Bei einigen Zellen sind Datumsangaben zu hinterlegen. Kann man die Eingabe irgendwie vereinachen? Zum Beispiel, dass dort ein Kalender auftauscht oder ein Eingabefeld für Datumsangaben?

    Gruß Jan

    1.) Sobald Du die Zelle markiert hast (1. Klick), kannst Du schon anfangen zu schreiben. Du musst Dich nicht in den Edit-Modus reinklicken.*
    2.) Geht, ist aber ziemlich aufwendig, siehe NUD-Column-Thread; einfacher: Du packst einen Kalender daneben, und sobald man ein Datum im Kalender wählt/anklickt, wird dieses in die Zelle reingeschrieben. Musst dann noch selbst festlegen, ob das nur geschehen soll, wenn auch die 2. Spalte angewählt wird und ggf. nur, wenn noch kein Datum drinsteht.

    *Wenn Du es aber für die Optik unbedingt zu brauchen scheinst:

    VB.NET-Quellcode

    1. Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
    2. DataGridView1.BeginEdit(True)
    3. End Sub

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende