LookupGrid: Version 3.0.5.0

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
+            If DataSource IsNot Nothing AndAlso DataSource.Columns.Count > 0 Then
-            Dim oFirstColumn As String = DataSource.Columns.Item(0).ColumnName
+                Dim oFirstColumn As String = DataSource.Columns.Item(0).ColumnName
+                Dim oOperator = New DevExpress.Data.Filtering.InOperator(oFirstColumn, SelectedValues)
 
-            Dim oWrapped = SelectedValues.
+                View.ActiveFilterCriteria = oOperator
-                Select(Function(v As String) $"'{v}'").
+                View.OptionsView.ShowFilterPanelMode = ShowFilterPanelMode.Never
-                ToArray()
+            End If
-            Dim oValueString As String = String.Join(",", oWrapped)
+        Catch ex As Exception
-            Dim oCriterium As String = $"[{oFirstColumn}] IN ({oValueString})"
+            'noop
-            View.ActiveFilterCriteria = DevExpress.Data.Filtering.CriteriaOperator.Parse(oCriterium)
+        End Try
-            View.OptionsView.ShowFilterPanelMode = ShowFilterPanelMode.Never
-        End If
     End Sub
 
     Public Sub HandleQueryPopup(sender As Object, e As CancelEventArgs) Handles Me.QueryPopUp

Controls.LookupGrid/My Project/AssemblyInfo.vb

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("LookupGrid")>
 <Assembly: AssemblyCopyright("Copyright © 2021")>
-<Assembly: AssemblyTrademark("3040")>
+<Assembly: AssemblyTrademark("3000")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("3.0.4.0")>
+<Assembly: AssemblyVersion("3.0.5.0")>
-<Assembly: AssemblyFileVersion("3.0.4.0")>
+<Assembly: AssemblyFileVersion("3.0.5.0")>