2 Commits

Author SHA1 Message Date
Jonathan Jenne
82a88fdbb1 LookupGrid: Version 3.0.5.0 2021-04-12 16:56:09 +02:00
Jonathan Jenne
3102d7ad60 LookupGrid: Escape Selected Rows in Popup 2021-04-12 16:55:30 +02:00
2 changed files with 14 additions and 14 deletions

View File

@@ -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

View File

@@ -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: AssemblyFileVersion("3.0.4.0")>
<Assembly: AssemblyVersion("3.0.5.0")>
<Assembly: AssemblyFileVersion("3.0.5.0")>