Daten in DataGridView suchen

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Nilselino.

    Daten in DataGridView suchen

    Guten Tag,
    Ich möchte in meinem DataGridView alle Spalten durchsuchen. Das heißt ich gebe in ein Textfeld den Suchbergriff ein und drücke auf OK und dann soll er mir den Begriff suchen und wie beim Word dahin springen und wenn mehrerere Übereinstimmungen gefunden wurden weitersuchen anbieten. Wie mache ich das? Das Textfeld und den OK Button habe ich schon.
    schöne Grüße
    Nils

    Ich habe hier mal ein Beispiel wie du Daten von einer CSV in eine DGV bekommst. Und umgekehrt.

    Schau dir die beiden Routinen mal an. Vieleicht erkennst du ja wie man durch ein DGV druchwandert.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict Off
    2. Option Explicit On
    3. Imports System.IO
    4. Public Class Form1
    5. Dim Datei As String = "C:\Temp\Test.CSV"
    7. ' Button 1 ist für das Laden
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. DataGrid_Laden()
    10. End Sub
    11. ' Button 2 ist für das Speichern
    12. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    13. DataGrid_Speichern()
    14. End Sub
    16. ' DatagridView speichern
    17. Private Sub DataGrid_Speichern()
    18. Dim Liste As String = Nothing
    19. ' Anzahl der Zeilen
    20. Dim count As Integer = DataGridView1.Rows.Count - 1
    21. For i = 0 To count - 1
    22. ' Anzahl der Spalten
    23. Dim ColumCount As Integer = DataGridView1.ColumnCount - 1
    24. Dim Eintrag As String = Nothing
    25. For g = 0 To ColumCount
    26. If Not g = ColumCount Then
    27. Eintrag += CStr(DataGridView1.Rows(i).Cells(g).Value) & ";"
    28. Else
    29. Eintrag += CStr(DataGridView1.Rows(i).Cells(g).Value)
    30. End If
    31. Next g
    32. Liste += Eintrag & vbCrLf
    33. Next i
    34. Try
    35. IO.File.WriteAllText(Datei, Liste)
    36. Catch ex As Exception
    37. MessageBox.Show("beim speichern ist ein fehler aufgetreten ")
    38. End Try
    39. End Sub
    41. ' DataGridView aus datei lesen und in Grid anzeigen
    42. Private Sub DataGrid_Laden()
    43. If File.Exists(Datei) Then
    44. Dim lines() As String = Nothing
    45. DataGridView1.Rows.Clear()
    46. Me.Cursor = Cursors.AppStarting
    47. 'DataGridView1.AllowUserToAddRows = True
    48. Try
    49. lines = IO.File.ReadAllLines(Datei)
    50. Catch ex As Exception
    51. Me.Cursor = Cursors.Default
    52. Exit Sub
    53. End Try
    54. Dim Menge As Integer = lines.GetLength(Menge) - 1 ' Anzahl der Zeilen ermitteln
    55. For i = 0 To Menge
    56. Dim Eintrag As String = lines(i)
    57. Dim parts() As String = Split(Eintrag, ";")
    59. Dim RowCount As Integer = DataGridView1.RowCount - 1
    60. DataGridView1.Rows.Add()
    61. DataGridView1.BeginEdit(CBool(RowCount))
    63. Dim SplittCount As Integer = parts.Length - 1 ' Anzahl der Einträge in Splitt
    64. If SplittCount >= 0 Then
    65. For g = 0 To SplittCount
    66. DataGridView1.Rows(RowCount).Cells(g).Value = parts(g)
    67. Next g
    68. End If
    69. Next i
    70. DataGridView1.Update()
    71. DataGridView1.EndEdit()
    72. 'DataGridView1.AllowUserToAddRows = False
    73. Me.Cursor = Cursors.Default
    74. End If
    75. End Sub
    77. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    78. Form2.Show()
    79. End Sub
    81. Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
    82. If Not e.RowIndex < 0 Then
    83. If e.ColumnIndex = 2 Then
    84. Dim ScrollOffset As Integer = DataGridView1.VerticalScrollingOffset
    85. DataGridView1.Rows.RemoveAt(e.RowIndex)
    86. If Not e.RowIndex = DataGridView1.Rows.Count Then
    87. If (ScrollOffset > 0) And (DataGridView1.VerticalScrollingOffset = 0) Then
    88. DataGridView1_CellMouseEnter(DataGridView1, e:=New DataGridViewCellEventArgs(e.ColumnIndex, e.RowIndex - 1))
    89. Else
    90. DataGridView1_CellMouseEnter(DataGridView1, e)
    91. End If
    92. Else
    93. If ScrollOffset = 0 Then
    94. DataGridView1.ClearSelection()
    95. End If
    96. End If
    97. Else
    98. DataGridView1.Item(0, e.RowIndex).Value = Not DataGridView1.Item(0, e.RowIndex).Value
    99. End If
    100. End If
    103. End Sub
    105. Private Sub DataGridView1_CellMouseEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellMouseEnter
    106. DataGridView1.Focus()
    107. If Not e.RowIndex < 0 Then
    108. DataGridView1.Item(2, e.RowIndex).Value = "My.Resources.RuleRemove"
    109. DataGridView1.Rows.Item(e.RowIndex).Selected = True
    110. End If
    112. End Sub
    113. End Class

Facebook