Mein Wunsch ist es, dass man alle DataGridView Spalten durchsuchen kann. Dabei kann man am Ende noch zwischen "Anfang, Teil, Ende und Genau" auswählen.

  • VB.NET

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

    Mein Wunsch ist es, dass man alle DataGridView Spalten durchsuchen kann. Dabei kann man am Ende noch zwischen "Anfang, Teil, Ende und Genau" auswählen.

    Ausgelagert aus Bindingsource Filter mit System.Int32

    Hallo zusammen,

    ich holle diesen Beitrag mal wieder hoch, da ich so ein ähnliches Problem habe.

    Mein Wunsch ist es, dass man alle DataGridView Spalten durchsuchen kann. Dabei kann man am Ende noch zwischen "Anfang, Teil, Ende und Genau" auswählen.

    Mein Programm arbeitet mit typisierten DataSet, Strict on und die alten VB6-Befehle sind deaktiviert.

    Habe mir mal folgenden Code zusammengebastellt.

    VB.NET-Quellcode

    1. Sub test()
    2. Dim Suchen_in_Feld As String
    3. Dim Suchen_Nach As String
    4. Dim Suchen_in_Tabelle As String
    5. Dim Suchen_SpaltenTyp As String
    7. ' Das Feld in dem gesucht werden soll sowie nach was gesucht werden soll, in Variablen kurz festhalten, damit man später nicht so viel schreiben muss
    8. Suchen_in_Feld = CBox_Suchfeld.SelectedItem.ToString
    9. Suchen_Nach = TBox_SucheNach.Text
    10. Suchen_in_Tabelle = Btn_Suche_In.Text
    12. ' Wenn ein Suchwert eingetragen wurde, diesen für eine Suche nutzen
    13. Dim Suchstring As String
    14. Suchstring = ""
    16. ' Alle Spaltennamen durchlaufen
    17. For dgv = 0 To DGridView_TB_Artikel.Columns.Count - 1
    18. If DGridView_TB_Artikel.Columns.Item(dgv).Visible = True Then
    19. ' von der aktuellen Spalte den Datentyp ermitteln
    20. Suchen_SpaltenTyp = ReplaceNew(DGridView_TB_Artikel.Columns(dgv).ValueType.ToString, "System.", "")
    21. ' MessageBox.Show(DGridView_TB_Artikel.Columns(dgv).HeaderText & " = " & Suchen_SpaltenTyp)
    23. Select Case CBox_Zahlenvergleich.Text
    24. Case "Teil"
    25. Select Case Suchen_SpaltenTyp
    26. Case "Boolean"
    27. If Was_ist_Eingabe_für_ein_Datentyp(Suchen_Nach) = "Boolean" Then
    28. Suchstring = Suchstring & "" & DGridView_TB_Artikel.Columns(dgv).HeaderText & " = " & Suchen_Nach & " or "
    29. End If
    30. Case "Int32"
    31. If Was_ist_Eingabe_für_ein_Datentyp(Suchen_Nach) = "Zahl" Then
    32. 'Suchstring = Suchstring & DGridView_TB_Artikel.Columns(dgv).HeaderText & " = " & Suchen_Nach & " or "
    33. Suchstring = Suchstring & String.Format("CONVERT([{0}]),System.String) Like '*{1}*'", DGridView_TB_Artikel.Columns(dgv).HeaderText, Suchen_Nach) & " or "
    34. End If
    35. Case "Stringj" ' nur wegen Deaktivierung falsch geschrieben
    36. If Was_ist_Eingabe_für_ein_Datentyp(Suchen_Nach) = "Zahl" Or Was_ist_Eingabe_für_ein_Datentyp(Suchen_Nach) = "String" Then
    37. Suchstring = Suchstring & "[" & DGridView_TB_Artikel.Columns(dgv).HeaderText & "] LIKE '*" & Suchen_Nach & "*' or "
    38. End If
    39. End Select
    40. End Select
    41. End If
    42. Next
    44. Try
    46. If Suchstring <> "" Then
    47. Suchstring = "EingabemaskeID = " & My.Settings.SysSetting_Eingabemaske_Letzte_Aktive & " and (" & Suchstring
    48. Suchstring = MidNew_Str(Suchstring, 1, LenNew(Suchstring) - 4) & ")"
    49. MessageBox.Show(Suchstring)
    50. ' Das letzte 'Or' entfernen
    51. ArtikelBindingSource.Filter = Suchstring
    52. Else
    53. MsgBox("Es konnte kein Suchfilter eingestellt werden")
    54. Exit Sub
    55. End If
    57. Catch ex As Exception
    58. MessageBox.Show(ex.Message)
    60. End Try
    61. End Sub
    63. ' Hilfsfunktionen, nicht schön, aber funktionieren
    64. Public Function Was_ist_Eingabe_für_ein_Datentyp(ByVal Wert As String) As String
    65. ' Boolean
    66. Dim BooleanWerte As String
    67. BooleanWerte = UcaseNew_Str("Ja|Nein|Wahr|Falsch|0|-1|Yes|No|True|False")
    68. If InStrNew(BooleanWerte, UcaseNew_Str(Wert)) > 0 Then
    69. Return "Boolean"
    70. End If
    72. ' Zahl
    73. If Nur_Zahlen_zulassen(Wert, True) = Wert Then
    74. Return "Zahl"
    75. End If
    76. ' String
    77. If Nur_Zahlen_zulassen(Wert, True) <> Wert Then
    78. Return "String"
    79. End If
    81. End Function
    82. Function Nur_Zahlen_zulassen(Eingabe As String, Sonderzeichen As Boolean) As String
    83. Dim Zähler1 As Integer
    84. Dim ASCII As Integer
    85. For Zähler1 = 0 To LenNew(Eingabe) - 1
    87. ASCII = ASCNew(Eingabe.Chars(Zähler1).ToString)
    89. ' Wenn das aktuelle Zeichen keine Zahl ist, dieses löschen
    90. If ASCII <= 46 Or ASCII >= 58 Then
    91. ' Zeichen ,;.: zulassen
    92. If Sonderzeichen = True And ASCII = 44 Or ASCII = 59 Or ASCII = 46 Or ASCII = 58 Then
    93. ' Eingabe = ReplaceNew(Eingabe, Zeichen1(Zähler1), "")
    94. Else
    95. Eingabe = ReplaceNew(Eingabe, Eingabe.Chars(Zähler1).ToString, "/")
    96. End If
    97. End If
    98. Next Zähler1
    100. Eingabe = ReplaceNew(Eingabe, "/", "")
    102. If Eingabe = "" Then
    103. Nur_Zahlen_zulassen = "0"
    104. Else
    105. On Error GoTo Nur_Zahlen_zulassen_Error
    106. Nur_Zahlen_zulassen = Eingabe
    107. End If
    108. Exit Function
    109. Nur_Zahlen_zulassen_Error:
    110. Nur_Zahlen_zulassen = Nur_Zahlen_zulassen(Eingabe, False)
    111. End Function


    Die Suche nach Boolean funktioniert wie gewünscht.

    Der Suchstring sieht bei Boolean so aus:

    EingabemaskeID = 1 and (Verkauft = 1 or BarcodeOriginal = 1 or Barcodeaufkleberausdrucken = 1 or BestehtausmehrerenTeilen = 1 or AufkleberNeuDrucken = 1 or WunschlisteAnzeigen = 1 or AufkleberTrainsafe = 1)

    Was leider dann nicht mehr funktioniert ist die Suche nach Zahlen und Texten.

    Der Suchstring sieht bei Zahlen so aus:

    EingabemaskeID = 1 and (CONVERT([ID]),System.String) Like '*12342*' or CONVERT([WunschlistenNr]),System.String) Like '*12342*')

    Die Felermeldung lt. dann einfach nur

    Syntaxfehler im Ausdruck.

    Wenn man die String-Case Zeile mit aktiviert (also aus Stringj String macht) dann sieht Suchstring so aus

    EingabemaskeID = 1 and (CONVERT([ID]),System.String) Like '*12343*' or [ArtikelNr] LIKE '*12343*' or [AlteArtikelnr] LIKE '*12343*' or [UnterArtikelNrVonHauptnr] LIKE '*12343*' or [ArtikelBezeichnung] LIKE '*12343*' or [AufkleberLfdNr] LIKE '*12343*' or [AufkleberDigNr] LIKE '*12343*' or CONVERT([WunschlistenNr]),System.String) Like '*12343*')

    Die beiden Hilfsroutinen funktionieren soweit, aber wer hier Verbesserungsvorschläge hat, gerne her damit.

    Wie mein Vorredner schon sagte, sollen auch bei mir Zahlenwerte mit Like gefiltert werden.

    Kurze Fragen: Wo liegt der Fehler und wie lt. die Lösung?

    Noch eine Frage: Kann man auch die Treffer anzeigen lassen, so dass man sofort sieht, wo ein Treffer erzielt wurde? So wie wenn man bei einer Internetseite oder im VB-Net Editor sucht und die Treffer angezeigt werden.

    Vielen Dank

    Volker

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Volker Bunge“ ()

Facebook
Telefonspende