DocumentResultList

ZooFlow/My Project/Application.Designer.vb

@@ -29,8 +29,8 @@ Namespace My
             Me.SaveMySettingsOnExit = true
             Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
         End Sub
-        
-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>
         Protected Overrides Sub OnCreateMainForm()
             Me.MainForm = Global.DigitalData.GUIs.ZooFlow.frmAdmin
         End Sub

ZooFlow/My Project/Settings.Designer.vb

@@ -43,8 +43,8 @@ Partial Friend NotInheritable Class Settings
                If Not addedHandler Then
                     SyncLock addedHandlerLockObject
                         If Not addedHandler Then
-                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
-                            addedHandler = True
+                        AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                        addedHandler = True
                         End If
                     End SyncLock
                 End If

ZooFlow/Queries/ClassClipboardWatcherQueries.vb

@@ -1,6 +1,6 @@
 Public Class ClassClipboardWatcherQueries
     Public Function VWCW_USER_PROFILE(UserId As Integer) As String
-        Return $"SELECT DISTINCT GUID, NAME, REGEX_EXPRESSION, COMMENT, PROC_NAME, PROFILE_TYPE FROM VWCW_USER_PROFILE WHERE USER_ID = {UserId} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {0}))"
+        Return $"SELECT DISTINCT GUID, NAME, REGEX_EXPRESSION, COMMENT, PROC_NAME, PROFILE_TYPE FROM VWCW_USER_PROFILE WHERE USER_ID = {UserId} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {UserId}))"
     End Function
 
     Public Function TBCW_PROFILE_PROCESS(UserId As Integer) As String

ZooFlow/frmAdmin.vb

@@ -94,6 +94,7 @@ Partial Public Class frmAdmin
         Dim oWindow As New Window(My.LogConfig)
         Dim oWindowInfo = oWindow.GetWindowInfo()
         Dim oClipboardContents As String = Clipboard.GetText()
+        Dim oUserState = My.Application.User
 
         Try
             oProfileFilter = New ProfileFilter(My.LogConfig,
@@ -112,7 +113,8 @@ Partial Public Class frmAdmin
                                                    Return oProfileFilter.FilterProfilesBySearchResults(
                                                         oMatchingProfiles,
                                                         My.Database,
-                                                        My.Application.User)
+                                                        oUserState,
+                                                        oClipboardContents)
                                                End Function)
             oMatchingProfiles = oProfileFilter.ClearNotMatchedProfiles(oMatchingProfiles)
         Catch ex As Exception