AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

LookupGrid: Escape Selected Rows in Popup

Browse Source
This commit is contained in:
Jonathan Jenne 2021-04-12 16:55:30 +02:00
parent 18792e8e6e
commit 3102d7ad60
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Controls.LookupGrid/LookupControl3.vb
View File

@ -260,19 +260,19 @@ Public Class RepositoryItemLookupControl3
End Sub End Sub
Private Shadows Sub Popup(sender As LookupControl3, e As EventArgs) Handles Me.BeforePopup 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 End Sub
Public Sub HandleQueryPopup(sender As Object, e As CancelEventArgs) Handles Me.QueryPopUp Public Sub HandleQueryPopup(sender As Object, e As CancelEventArgs) Handles Me.QueryPopUp