From 3102d7ad602353d6d4ad820ff3b30e437d353d18 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 12 Apr 2021 16:55:30 +0200 Subject: [PATCH] LookupGrid: Escape Selected Rows in Popup --- Controls.LookupGrid/LookupControl3.vb | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/Controls.LookupGrid/LookupControl3.vb b/Controls.LookupGrid/LookupControl3.vb index cee08f3c..11852848 100644 --- a/Controls.LookupGrid/LookupControl3.vb +++ b/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 - - If DataSource IsNot Nothing AndAlso DataSource.Columns.Count > 0 Then - Dim oFirstColumn As String = DataSource.Columns.Item(0).ColumnName - - 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 + 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 + Dim oOperator = New DevExpress.Data.Filtering.InOperator(oFirstColumn, SelectedValues) + + 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