LookupGrid: Escape Selected Rows in Popup

Controls.LookupGrid/LookupControl3.vb

@@ -260,19 +260,19 @@ Public Class RepositoryItemLookupControl3
     End Sub
 
     Private Shadows Sub Popup(sender As LookupControl3, e As EventArgs) Handles Me.BeforePopup
-        Dim oView As ColumnView = sender.Properties.View
+        Try
+            Dim oView As ColumnView = sender.Properties.View
 
-        If DataSource IsNot Nothing AndAlso DataSource.Columns.Count > 0 Then
-            Dim oFirstColumn As String = DataSource.Columns.Item(0).ColumnName
+            If DataSource IsNot Nothing AndAlso DataSource.Columns.Count > 0 Then
+                Dim oFirstColumn As String = DataSource.Columns.Item(0).ColumnName
+                Dim oOperator = New DevExpress.Data.Filtering.InOperator(oFirstColumn, SelectedValues)
 
-            Dim oWrapped = SelectedValues.
-                Select(Function(v As String) $"'{v}'").
-                ToArray()
-            Dim oValueString As String = String.Join(",", oWrapped)
-            Dim oCriterium As String = $"[{oFirstColumn}] IN ({oValueString})"
-            View.ActiveFilterCriteria = DevExpress.Data.Filtering.CriteriaOperator.Parse(oCriterium)
-            View.OptionsView.ShowFilterPanelMode = ShowFilterPanelMode.Never
-        End If
+                View.ActiveFilterCriteria = oOperator
+                View.OptionsView.ShowFilterPanelMode = ShowFilterPanelMode.Never
+            End If
+        Catch ex As Exception
+            'noop
+        End Try
     End Sub
 
     Public Sub HandleQueryPopup(sender As Object, e As CancelEventArgs) Handles Me.QueryPopUp