This commit is contained in:
2020-05-31 22:25:35 +02:00
parent 4a358d43fd
commit 083e666fbc
214 changed files with 14292 additions and 4117 deletions

View File

@@ -32,6 +32,8 @@ Public Class MySearchBox
Public Property SQL_ORDER_BY As String
Public Property conn_art As String = "FMZOLL"
Public Property key_visible As Boolean = False
Public Property _allowSpaceAsSplitter As Boolean = False
Dim SrchHeight As Integer = 300
Dim SrchWidth As Integer = 300
@@ -247,6 +249,8 @@ Public Class MySearchBox
With usrcntl.dgvKundenAktiv
Dim srch As String = Me.Text.Replace("'", "").ToString.Trim
If _allowSpaceAsSplitter Then srch = srch.Replace(" ", ",")
Dim srch2 As String = ""
If srch.Contains(",") Then
Dim spitter() = srch.Split(",")