4 Commits

Author SHA1 Message Date
Jonathan Jenne
07b2bcaeaf Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo 2021-05-07 13:26:22 +02:00
Jonathan Jenne
028690308d Version 3.2.1 2021-05-07 13:26:02 +02:00
Jonathan Jenne
3c186e39a4 LookupControl: Set EditValue for single selected values, fixes disappearing values when used as Cell Editor in GridControl 2021-05-07 12:17:46 +02:00
Jonathan Jenne
43dced9489 EDMIService: Don't log ReturnDatatableFromCache in info 2021-05-06 16:49:20 +02:00
3 changed files with 7 additions and 3 deletions

View File

@@ -163,6 +163,7 @@ Public Class RepositoryItemLookupControl3
NullText = String.Format(_R.GetString("LookupControl_NoRecords")) NullText = String.Format(_R.GetString("LookupControl_NoRecords"))
Case 1 Case 1
NullText = Values.FirstOrDefault() NullText = Values.FirstOrDefault()
OwnerEdit.EditValue = Values.FirstOrDefault()
Case Else Case Else
NullText = String.Format(_R.GetString("LookupControl_NRecords"), Values.Count) NullText = String.Format(_R.GetString("LookupControl_NRecords"), Values.Count)
End Select End Select
@@ -172,6 +173,9 @@ Public Class RepositoryItemLookupControl3
NullText = String.Format(_R.GetString("LookupControl_NoRecords")) NullText = String.Format(_R.GetString("LookupControl_NoRecords"))
Case Else Case Else
NullText = Values.FirstOrDefault() NullText = Values.FirstOrDefault()
' JJ at 07.05.2021
' Setting the EditValue Is crucial for making the Control work as a Cell Editor!!!
OwnerEdit.EditValue = Values.FirstOrDefault()
End Select End Select
End If End If

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.2.0.0")> <Assembly: AssemblyVersion("3.2.1.0")>
<Assembly: AssemblyFileVersion("3.2.0.0")> <Assembly: AssemblyFileVersion("3.2.1.0")>

View File

@@ -73,7 +73,7 @@ Public Class EDMIService
#Region "=== Database ===" #Region "=== Database ==="
Public Function ReturnDatatableFromCache(Name As String, FilterExpression As String, SortByColumn As String) As TableResult Implements IEDMIService.ReturnDatatableFromCache Public Function ReturnDatatableFromCache(Name As String, FilterExpression As String, SortByColumn As String) As TableResult Implements IEDMIService.ReturnDatatableFromCache
Try Try
_Logger.Info($"ReturnDatatableFromCache: Datatable: {Name}") _Logger.Debug($"ReturnDatatableFromCache: Datatable: {Name}")
Dim oDataset As DataSet = GlobalState.TableStore Dim oDataset As DataSet = GlobalState.TableStore
Dim oDataTable As DataTable = Nothing Dim oDataTable As DataTable = Nothing