From 60104989ab7bdbd1e77de41ddf0dba8b4ecdaadc Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 12 Mar 2021 12:29:23 +0100 Subject: [PATCH] Fix Crash in Lookup for Depending Controls --- app/DD_PM_WINDREAM/frmValidator.vb | 19 +++++-------------- 1 file changed, 5 insertions(+), 14 deletions(-) diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index ae0e6d9..1eb836b 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -1363,24 +1363,14 @@ Public Class frmValidator End Try End Sub - Public Sub onLookUp0(sender As Object, e As System.EventArgs) - Dim oLookup As LookupControl3 = sender - Try - If Not IsNothing(oLookup.Properties.SelectedValues) Then - For Each ocont In oLookup.Properties.SelectedValues - Dim o = ocont - Next - End If - Catch ex As Exception - - End Try - End Sub Public Sub onLookUpselectedValue(sender As Object, SelectedValues As List(Of String)) LOGGER.Debug("onLookUpselectedValue") If FormLoaded = False Then Exit Sub End If - Dim oLookup As LookupControl3 = sender + Dim oRepositoryItem As RepositoryItemLookupControl3 = sender + Dim oLookup As LookupControl3 = oRepositoryItem.OwnerEdit + Try If Not IsNothing(SelectedValues) Then If SelectedValues.Count = 1 Then @@ -1437,7 +1427,8 @@ Public Class frmValidator Exit Sub End If LOGGER.Debug("onLookUpselectedValue_Control2Set") - Dim oLookup As LookupControl3 = sender + Dim oRepositoryItem As RepositoryItemLookupControl3 = sender + Dim oLookup As LookupControl3 = oRepositoryItem.OwnerEdit Try If Not IsNothing(SelectedValues) Then If SelectedValues.Count = 1 Then