Bindingsource.Filter | Filterbezeichnung mit Wildcard durch String Interpolation ersetzen

DerSmurf · 3. Juni 2021, 22:05

Hallo
Ich habe eine FilterX Methoe mit Wildcards (hier im Code auskommentiert). Diese funktioniert.
Ich möchte diese aber durch eine Version mit String Interpolation umsetzten. Da ich den Filterausdruck als String an eine Funktion übergebe.
Diese kann die beiden Variablen StartDate und EndDate nicht verarbeiten.
Aber das schmeißt mir den Fehler: System.Data.SyntaxErrorException: "Das Token '.' kann an Position 27 nicht interpretiert werden."
Der Filterausdruck sieht zur Zeit des Fehlers so aus: bs.Filter"LastCalculationSP >= 03.06.2021 00:00:00 And LastCalculationSP <= 03.06.2021 23:59:00"String

VB.NET-Quellcode

Private Sub CBSPChange_CheckedChanged(sender As Object, e As EventArgs) Handles CBSPChange.CheckedChanged
Dim StartDate As Date = New Date(DTPStart.Value.Year, DTPStart.Value.Month, DTPStart.Value.Day, 0, 0, 0)
Dim EndDate As Date = New Date(DTPEnd.Value.Year, DTPEnd.Value.Month, DTPEnd.Value.Day, 23, 59, 0)
'ArticleBindingSource.FilterX("LastCalculationSP >= ? And LastCalculationSP <= ?", StartDate, EndDate)
ArticleBindingSource.FilterX($"LastCalculationSP >= {StartDate} And LastCalculationSP <= {EndDate}")
End Sub

Was habe ich falsch gemacht?

VaporiZed · 3. Juni 2021, 23:37

Probier mal so: $"LastCalculationSP >= {StartDate:yyyy-MM-dd} And LastCalculationSP <= {EndDate:yyyy-MM-dd}"

Oder Du fragst mal den Hersteller dieser FilterX-Methode, was das Problem ist.

DerSmurf · 4. Juni 2021, 07:59

Hmm, hiermit bekomme ich dann den Fehler, dass die Operation <= nicht an System.DateTime angewendet werden kann.
Der Erfinder dieser Methode ist leider gerade nicht aktiv.
ICh hau mal die Methode hier rein. Vielleicht sieht da einer durch

VB.NET-Quellcode

Public Sub FilterX(bs As BindingSource, expression As String, ParamArray values() As Object)
Dim filter = GetFilterString(expression, values)
bs.Filter = If(bs.Filter = filter, "", filter) ' GetFilterString(expression, values)
End Sub
Private Function GetFilterString(expression As String, values() As Object) As String
Dim splits = expression.Split("?"c) ' identify placeholder '?'
If splits.Count > values.Length + 1 Then Throw New ArgumentException( _
"expression contains more placeholders than values are passed")
For i = 0 To splits.Length - 2
Dim val = values(i)
Dim sb = New Text.StringBuilder("{0}")
If TypeOf (val) Is Date Then
sb.Insert(0, "#"c).Append("#"c)
ElseIf TypeOf (val) Is String Then
With splits(i)
If .EndsWith("*") Then sb.Insert(0, "*"c) : splits(i) = .Remove(.Length - 1, 1)
End With
With splits(i + 1)
If .StartsWith("*") Then sb.Append("*"c) : splits(i + 1) = .Remove(0, 1)
End With
sb.Insert(0, "'"c).Append("'"c)
End If
splits(i) &= String.Format(Globalization.CultureInfo.InvariantCulture, sb.ToString, val)
Next
Return String.Concat(splits)
End Function

tragl · 4. Juni 2021, 09:44

DerSmurf schrieb:

Da ich den Filterausdruck als String an eine Funktion übergebe.

Das musst du mir bitte erklären... Also bitte mal ein Beispiel, wo du das wie machen möchtest.

ErfinderDesRades ist die Woche im Urlaub. Ich arbeite aber auch an vielen Stellen mit bs.FilterX, wir schaffen das bestimmt auch mal ohne ihn

DerSmurf · 4. Juni 2021, 13:09

Also ich möchte meine Bindingsource filtern.
Unter anderem hiernach:

VB.NET-Quellcode

Dim StartDate As Date = New Date(DTPStart.Value.Year, DTPStart.Value.Month, DTPStart.Value.Day, 0, 0, 0)
Dim EndDate As Date = New Date(DTPEnd.Value.Year, DTPEnd.Value.Month, DTPEnd.Value.Day, 23, 59, 0)
ArticleBindingSource.FilterX("LastCalculationSP >= ? And LastCalculationSP <= ?", StartDate, EndDate)

Ich stelle mit zwei DTP ein Anfangs- und Enddatum ein.
Dann werden mir nur Artikel angezeigt, bei denen sich in diesem Datumsbereich der Verkaufspreis geändert hat.
Weil ich Probleme mit der Zeit im Datum hatte (und aus dem Grund nicht alles angezeigt wurde) habe ich die Zeiteinstellung in den beiden Variablen eingebaut.
Bis hierhin geht alles.

Das Problem ist jetzt, dass ich aus mehreren Filteroptionen (mittels Checkboxen) Einen searchstring zusammenbaue.
Das macht die sub Buildsearchstring(append as boolean, searchtext as string).
letzlich prüfe ich, ob die entsprechende Checkbox geklickt ist und füge dann den entsprechenden filtertext in meinem searchstring ein.
(habe meinen Programmier PC nicht bei, Deswegen kein Beispiel)
Also mein konretes Problem ist, dass
buildsearchstring(true, "LastCalculationSP >= ? And LastCalculationSP <= ?", StartDate, EndDate)
nicht funktioniert, weil Buildsearchstring mit Startdate und Enddate nichts anzufangen weiß.
Damit ich die beiden Variablen nicht in meine Funktion einbauen muss (Damit ich sie in einem von 10 aufrufen übergeben kann), wollte ich die "?" In meinem Filterstring so ersetzen, dass ich es an meine Funktion übergeben kann.
Aber ArticleBindingSource.FilterX($"LastCalculationSP >= {StartDate} And LastCalculationSP <= {EndDate}") führt mich in einen Fehler (post 1)

Also kurz und knapp:
aus dem hier

VB.NET-Quellcode

"LastCalculationSP >= ? And LastCalculationSP <= ?", StartDate, EndDate

muss ein einzelner String ohne Wildcards ("?") werden, den ich an eine Funktion _searchstring = Functionname(Stringvariable as string) as string übergeben kann, Damit Bindingsource.filterx(_searchstring) funktioniert

VaporiZed · 4. Juni 2021, 13:27

kurzer Einwurf:

VB.NET-Quellcode

Dim StartDate As Date = New Date(DTPStart.Value.Year, DTPStart.Value.Month, DTPStart.Value.Day, 0, 0, 0)
Dim EndDate As Date = New Date(DTPEnd.Value.Year, DTPEnd.Value.Month, DTPEnd.Value.Day, 23, 59, 0)

->

VB.NET-Quellcode

Dim StartDate As Date = DTPStart.Value.Date
Dim EndDate As Date = DTPEnd.Value.Date.AddDays(1).AddMinutes(-1)

Die Frage, die Du Dir stellen musst, ist: welche Zeichenfolge wird als Vergleichswert akzeptiert? Wenn Du das weißt, kannst Du es aus dem echten Datum auch zusammenbauen. Du musst also ein Beispiel finden und am besten auch posten, bei dem eine fixe Zeichenfolge zum Erfolg führt. Keine Variable einbauen, sondern nur z.B. schreiben, dass (falls zutreffend) LastCalculationSP >= 03.06.2021 And LastCalculationSP <= 04.06.2021 zum Erfolg führt.

tragl · 4. Juni 2021, 17:15

DerSmurf schrieb:

Das Problem ist jetzt, dass ich aus mehreren Filteroptionen (mittels Checkboxen) Einen searchstring zusammenbaue.

hatten wir das nicht schonmal bei dir bei einem anderen Projekt?
bs.FilterX wirst du da nicht nehmen können, sonder müsstest dann mit bs.Filter ohne X arbeiten - geht aber genauso gut, ist nur nicht so komfortabel.

DerSmurf · 4. Juni 2021, 21:11

@tragl
Wir hatten das ganze genau bei der Problematik hier. Da haben wir damals aus Filter, FilterX gemacht.
Diese Suchfunktion soll jetzt um eine Funktion - eben die geänderten VK Preise mit Datumsauswahl der Änderung - erweitert werden.

Hier der Erstellcode:

Spoiler anzeigen

VB.NET-Quellcode

Private _SearchString As String
Private Sub CheckStateChanged(sender As Object, e As EventArgs) Handles CBSalesMargin.CheckStateChanged, CBRetailPrice.CheckStateChanged, CBPurchasingPrice.CheckStateChanged, CBNote.CheckStateChanged, CBName2.CheckStateChanged, CBName1.CheckStateChanged, CBListPrice.CheckStateChanged, CBEAN.CheckStateChanged, CBDiscount.CheckStateChanged, CBArtNo.CheckStateChanged, RBSearchExact.CheckedChanged, CBXExpiring.CheckedChanged
BuildSearchString()
End Sub
'Change Events der DateTimePicker
Private Sub DTPStart_ValueChanged(sender As Object, e As EventArgs) Handles DTPStart.ValueChanged, DTPEnd.ValueChanged
BuildSearchString()
End Sub
Private Sub BuildSearchString()
'Platzhalter für den Suchbegriff
Dim Search = "xxooxx"
'Suchoperator
Dim Asteriks = "*"
If RBSearchExact.Checked Then Asteriks = ""
'Searchstring leeren, um uncheck abzufangen
_SearchString = ""
'Artikelnummer
If CBArtNo.Checked Then
If _SearchString = "" Then
EditSearchString(True, $"ArtNr LIKE '{Asteriks}{Search}{Asteriks}'")
Else
EditSearchString(False, $"OR ArtNr LIKE '{Asteriks}{Search}{Asteriks}'")
End If
End If
'EAN
If CBEAN.Checked Then
If _SearchString = "" Then
EditSearchString(True, $"EAN LIKE '{Asteriks}{Search}{Asteriks}'")
Else
EditSearchString(False, $"OR EAN LIKE '{Asteriks}{Search}{Asteriks}'")
End If
End If
'Name1
If CBName1.Checked Then
If _SearchString = "" Then
EditSearchString(True, $"Name1 LIKE '{Asteriks}{Search}{Asteriks}'")
Else
EditSearchString(False, $"OR Name1 LIKE '{Asteriks}{Search}{Asteriks}'")
End If
End If
'Name2
If CBName2.Checked Then
If _SearchString = "" Then
EditSearchString(True, $"Name2 LIKE '{Asteriks}{Search}{Asteriks}'")
Else
EditSearchString(False, $"OR Name2 LIKE '{Asteriks}{Search}{Asteriks}'")
End If
End If
'Listenpreis
If CBListPrice.Checked Then
If _SearchString = "" Then
EditSearchString(True, $"Convert(ListPrice, System.String) LIKE '{Asteriks}{Search}{Asteriks}'")
Else
EditSearchString(False, $"OR Convert(ListPrice, System.String) LIKE '{Asteriks}{Search}{Asteriks}'")
End If
End If
'Rabatt
If CBDiscount.Checked Then
If _SearchString = "" Then
EditSearchString(True, $"Convert(Discount, System.String) LIKE '{Asteriks}{Search}{Asteriks}'")
Else
EditSearchString(False, $"OR Convert(Discount, System.String) LIKE '{Asteriks}{Search}{Asteriks}'")
End If
End If
'Einkaufpspreis
If CBPurchasingPrice.Checked Then
If _SearchString = "" Then
EditSearchString(True, $"Convert(PurchasingPrice, System.String) LIKE '{Asteriks}{Search}{Asteriks}'")
Else
EditSearchString(False, $"OR Convert(PurchasingPrice, System.String) LIKE '{Asteriks}{Search}{Asteriks}'")
End If
End If
'Spanne
If CBSalesMargin.Checked Then
If _SearchString = "" Then
EditSearchString(True, $"Convert(SalesMargin, System.String) LIKE '{Asteriks}{Search}{Asteriks}'")
Else
EditSearchString(False, $"OR Convert(SalesMargin, System.String) LIKE '{Asteriks}{Search}{Asteriks}'")
End If
End If
'Verkaufspreis
If CBRetailPrice.Checked Then
If _SearchString = "" Then
EditSearchString(True, $"Convert(RetailPrice, System.String) LIKE '{Asteriks}{Search}{Asteriks}'")
Else
EditSearchString(False, $"OR Convert(RetailPrice, System.String) LIKE '{Asteriks}{Search}{Asteriks}'")
End If
End If
'Notiz
If CBNote.Checked Then
If _SearchString = "" Then
EditSearchString(True, $"Convert(Note, System.String) LIKE '{Asteriks}{Search}{Asteriks}'")
Else
EditSearchString(False, $"OR Convert(Note, System.String) LIKE '{Asteriks}{Search}{Asteriks}'")
End If
End If
'ausgelaufen
If CBXExpiring.Checked Then
If _SearchString = "" Then
EditSearchString(True, "Expiring = true")
Else
_SearchString = "(" & _SearchString & ") AND Expiring = true"
End If
End If
''geänderte Verkaufspreise
'If CBSPChange.Checked Then
' Dim StartDate As Date = DTPStart.Value.Date
' Dim EndDate As Date = DTPEnd.Value.Date.AddDays(1).AddMinutes(-1)
' If _SearchString = "" Then
' EditSearchString(True, $"LastCalculationSP >= {StartDate} And LastCalculationSP <= {EndDate}")
' Else
' EditSearchString(False, $"LastCalculationSP >= {StartDate} And LastCalculationSP <= {EndDate}")
' End If
'End If
StartArticleSearch()

Die Sub StartArticleSearch führt noch ein paar Prüfungen durch, und macht im Grunde das hier:

VB.NET-Quellcode

ArticleBindingSource.RemoveFilter()
ArticleBindingSourceFiltered.RemoveFilter()
Dim Search = TBSearchArticles.Text
Dim Searchstring As String = Microsoft.VisualBasic.Replace(_SearchString, "xxooxx", Search)
If CBShowAllArticle.Checked Then
ArticleBindingSource.FilterX(Searchstring)
Else
ArticleBindingSourceFiltered.FilterX(Searchstring)
End If

Das ganze hängt an einem DGV zur Anzeige der Daten. Hier gibt es die Möglichkeit die Artikel nach Firmen zu sortieren.
Daher die zwei verschiedenen BindingSources.

@VaporiZed
Ich hoffe ich habe dich richtig verstanden. Ich habe das ganze im Einzelschritt laufen lassen, mit einem Filterausdruck der funktioniert. Den Filterausdruck aus der FilterX Methode habe ich mir dann rauskopiert und als Code aufgerufen:

ArticleBindingSource.FilterX("LastCalculationSP >= #06/04/2021 00:00:00# And LastCalculationSP <= #06/04/2021 23:59:00#")

So funktioniert das ganze.
Dann habe ich mir den Inhalt von StartDate und Enddate angeschaut.
Diese sind: #6/4/2021 12:00:00 AM# (Start) und #6/4/2021 11:59:00 PM# (end).
Da diese Variableninhalte identisch sind mit den Daten aus dem FilterX aufruf, habe ich diese wie folgt einbgebaut:
ArticleBindingSource.FilterX("LastCalculationSP >= " & StartDate & " And LastCalculationSP <= " & EndDate)
Wenn ich das ganze aber dann durchlaufen lasse, fehlen die "#". Der Filteraufruf der FilterX Methode sieht so aus:
"LastCalculationSP >= 04.06.2021 And LastCalculationSP <= 04.06.2021 23:59:00"
Das führt dann zum Fehler "Die Zeichenfolge wurde nicht als gültige DateTime erkannt. Ein unbekanntes Wort beginnt bei Index 11."g bei folgendem String:
Also habe ich die fehlenden # in den String eingebaut:
ArticleBindingSource.FilterX("LastCalculationSP >= #" & StartDate & "# And LastCalculationSP <= #" & EndDate & "#")
Das sieht jetzt irgendwie bekackt aus, aber geht:

VB.NET-Quellcode

EditSearchString(True, "LastCalculationSP >= #" & StartDate & "# And LastCalculationSP <= #" & EndDate & "#")
MessageBox.Show(_SearchString)

liefert mir einen korrekten Searchstring.

Ich baus mal ein.

Edit: @VaporiZed Du bist mein Held. Es läuft!

tragl · 5. Juni 2021, 01:17

DerSmurf schrieb:

EditSearchString(True, "LastCalculationSP >= #" & StartDate & "# And LastCalculationSP <= #" & EndDate & "#")

und schicker dann so: EditSearchString(True, $"LastCalculationSP >= #{StartDate}# AND LastCalculationSP <= #{EndDate}#")

Funktioniert anders im Übrigen nicht, weil die FilterX-Methode alles in String umwandelt. Könntest da was machen mit "WHERE Convert(System.String)Datum..." - das hatt ich auch an 1-2 Stellen mal, weil's anders nicht ging - müsste auch in dem früheren Projekt von dir mit drin sein.
Aber ich glaub' in dem Fall könnte man sich nur die # sparen, dafür haste dann längeren Text/Code, was ja auch unsinnig wäre

DerSmurf · 5. Juli 2021, 17:39

Ich muss das hier leider nochmal eröffnen.
Denn das ganze funktioniert doch nicht.
Mein Searchstring muss folgendermaßen aussehen, damit die FilterX Methode korrekt filtert:
"LastCalculationSP >= #06/01/2021 00:00:00# And LastCalculationSP <= #07/05/2021 23:59:00#"
@tragl Lösung:

VB.NET-Quellcode

Dim StartDate As Date = DTPStart.Value.Date
Dim EndDate As Date = DTPEnd.Value.Date.AddDays(1).AddMinutes(-1)
EditSearchString(True, $"LastCalculationSP >= #{StartDate}# AND LastCalculationSP <= #{EndDate}#")

liefert:
"LastCalculationSP >= #05.07.2021 00:00:00# AND LastCalculationSP <= #05.07.2021 23:59:00#"
@VaporiZeds Lösung:
EditSearchString(True, "LastCalculationSP >= #" & StartDate & "# And LastCalculationSP <= #" & EndDate & "#")
liefert: "LastCalculationSP >= #05.07.2021# And LastCalculationSP <= #05.07.2021 23:59:00#"
Also beide eine andere Formatierung des Datums als es sein müsste.
Meine Filterung funktioniert scheinbar nur mit folgendem EditSearchstring:

                EditSearchString(True, "LastCalculationSP >= #06/01/2021 00:00:00# And LastCalculationSP <= #07/05/2021 23:59:00#")

Wie bekomme ich meine beiden Daten in diesem Format übergeben?

tragl · 5. Juli 2021, 17:45

Hast du nicht die FilterX-Methode vom ErfinderDesRades?

Da kannst dann sowas machen: bs.FilterX("LastCalculationSP >= ? AND LastCalculationSP <= ?", StartDatum, EndDatum)

VaporiZed · 5. Juli 2021, 17:49

Dann arbeite mit Search & ~~Destroy~~ Replace:

VB.NET-Quellcode

Dim StartDateText = StartDate.ToString("MM/dd/yyyy HH:mm:ss").Replace(".", "/")
Dim EndDateText = EndDate.ToString("MM/dd/yyyy HH:mm:ss").Replace(".", "/")
Dim SearchString = $"LastCalculationSP >= #{StartDateText}# AND LastCalculationSP <= #{EndDateText}#"

Ergibt für SearchString mit StartDate = Date.Today und EndDate = heute, 1 Minute vor Mitternacht:
"LastCalculationSP >= #07/05/2021 00:00:00# AND LastCalculationSP <= #07/05/2021 23:59:00#"

DerSmurf · 5. Juli 2021, 18:11

Jau. Das klappt.
aber eine Frage zum Filter an sich. Wenn ich Startdate als 01.06.2021 und ENDDate als 05.07.2021 festlege und nach "M" suche, ergibt sich folgender Suchstring:
"Name1 LIKE '*m*'AND LastCalculationSP >= #06/01/2021 00:00:00# AND LastCalculationSP <= #07/05/2021 23:59:00#"
Mir werden folgerichtig alle Artikel angezeigt, welche ein "m" im Namen haben und deren VK Änderungsdatum (ist eine Column im DataSet vom Typ DateTime) zwischen dem 01.06. und 05.07. 2021 liegt.

Wenn ich aber nun die Suche nach Artikelnummer einschließe (zu durchsuchende Spalten kann der User durch Checkboxen bestimmen) ändert sich der Searchstring in:

"ArtNr LIKE '*m*'OR Name1 LIKE '*m*'AND LastCalculationSP >= #06/01/2021 00:00:00# AND LastCalculationSP <= #07/05/2021 23:59:00#"

Mir werden nun alle Artikel angezeigt, die ein "m" in der Artikelnummer haben SOWIE alle Artikel mit "m" im Namen UND Änderungsdatum zwischen 01.06. und 05.07.
gedacht ist aber eigentlich, dass nur Artikel gezeigt werden, die im entsprechenden Zeitraum eine VK Änderung erlebt haben, und ein "m" im Namen UND/ODER ein "m" in der Artikelnummer haben.

Wie muss mein Filterstring dann korrekt heißen? Denn es scheint ja, als wenn sich das AND nur auf die Bedingung davor bezieht, nicht auf alles.
Also ArtNr. like "m" ODER (Name Like "m" UND Datum)

VaporiZed · 5. Juli 2021, 18:55

Punktrechnung vor Strichrechnung. Or ist wie ein plus, And wie ein mal. Da bei 2 + 3 x 4 erst 3 x 4 gerechnet wird und dann + 2, ist es hier genauso. A Or B And C ergibt dann True, wenn B And C True ergibt oder A True ist. Daher musst Du ArtNr LIKE '*m*'OR Name1 LIKE '*m*' in Klammern setzen und dann erst den And-Teil dransetzen.

DerSmurf · 5. Juli 2021, 19:18

Uff.
Wird schwer das in meinen Variablen Suchstring einzubauen.
Aber ich mach mich mal Ran

VaporiZed · 5. Juli 2021, 19:32

Ein Grund mehr, warum ich diese BindingSourceFilter nicht mag. Ich hol mir per Code die Dinger in die BS, die ich brauche. Also mit LINQ.

DerSmurf · 5. Juli 2021, 20:17

Naja. Es gibt (mittlerweile) einiges was ich an meinem Programm anders machen würde.
Dafür ist unter anderem das Angelmarkenprojekt gedacht.
Mein Hauptprogramm ist noch eine Hauptform mit einem TabControl und 3.600 Zeichen Code in der Mainform.
Das wäre z.B. auch etwas was zu verändern ist.
Da ich das Programm aber in Verwendung habe (und es mir extrem hilft), mache ich erstmal die Funktionen gangbar und mache mich dann an ein redesign, damit ich am Ende "guten Code" habe

VaporiZed · 5. Juli 2021, 20:26

Ist mir klar, was Du meinst, aber bevor Du Dir ggf. mit der Filtererstellung ein Bein ausreißt, ist es ggf. schneller erledigt, die BS anders zu "filtern". Ein Versuch ist es wert. Alten Filtercode auskommentieren und neuen setzen kostet ja nicht viel.

DerSmurf · 5. Juli 2021, 20:31

Ich verstehe auch was du meinst.
Aber ich habe hier gerade einfach zu kompliziert gedacht.
Ich muss ja nur um den bereits existierenden Filterstring eine Klammer setzen, wenn dieser nicht leer ist.
Die Prüfung ob der Searchstring leer ist, gabs schon vorher. Muss ja prüfen ob ich ein "AND" brauche, und wenn ich ein AND brauche, brauch ich ja auch immer Klammern:

VB.NET-Quellcode

If _SearchString = "" Then
EditSearchString(True, $"LastCalculationSP >= #{StartDateText}# AND LastCalculationSP <= #{EndDateText}#")
Else
'EditSearchString(False, $"AND LastCalculationSP >= #{StartDateText}# AND LastCalculationSP <= #{EndDateText}#")
_SearchString = "(" & _SearchString & $") AND LastCalculationSP >= #{StartDateText}# AND LastCalculationSP <= #{EndDateText}#"
End If

Bindingsource.Filter | Filterbezeichnung mit Wildcard durch String Interpolation ersetzen

Bindingsource.Filter | Filterbezeichnung mit Wildcard durch String Interpolation ersetzen

VB.NET-Quellcode

VB.NET-Quellcode

DerSmurf schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

DerSmurf schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

DerSmurf schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben