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

fix LookupGrid not using selected values for depending controls

Browse Source
This commit is contained in:
Jonathan Jenne 2019-06-11 10:34:24 +02:00
parent 8fe526f5c0
commit e258dc568e
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -313,7 +313,7 @@ Public Class frmMassValidator
Dim oExpression = $"SQL_UEBERPRUEFUNG like '%#CTRL#{ctrl.Name}%'"
DTCONTROLS.Select(oExpression).CopyToDataTable(filteredData, LoadOption.PreserveChanges)
If filteredData.Rows.Count = 1 Then
AddHandler lookup.EditValueChanged, AddressOf onLookUp1
AddHandler lookup.SelectedValuesChanged, AddressOf onLookUp1
End If
End If
@ -355,15 +355,15 @@ Public Class frmMassValidator
End Try
End Sub
Public Sub onLookUp1(sender As Object, e As System.EventArgs)
Public Sub onLookUp1(sender As Object, SelectedValues As List(Of String))
If FORM_Shown = False Then
Exit Sub
End If
Dim oLookup As LookupControl2 = sender
Try
If Not IsNothing(oLookup.SelectedValues) Then
If oLookup.SelectedValues.Count = 1 Then
Dim oLOOKUPValue = oLookup.SelectedValues.Item(0)
If Not IsNothing(SelectedValues) Then
If SelectedValues.Count = 1 Then
Dim oLOOKUPValue = SelectedValues.Item(0)
Dim oLOOKUPName = oLookup.Name
Dim oControlID = oLookup.Tag

11
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -780,7 +780,8 @@ Public Class frmValidator
Dim oExpression = $"SQL_UEBERPRUEFUNG like '%#CTRL#{ctrl.Name}%'"
DTCONTROLS.Select(oExpression).CopyToDataTable(filteredData, LoadOption.PreserveChanges)
If filteredData.Rows.Count = 1 Then
AddHandler lookup.EditValueChanged, AddressOf onLookUp1
'AddHandler lookup.EditValueChanged, AddressOf onLookUp1
AddHandler lookup.SelectedValuesChanged, AddressOf onLookUp1
End If
End If
@ -1002,15 +1003,15 @@ Public Class frmValidator
End Try
End Sub
Public Sub onLookUp1(sender As Object, e As System.EventArgs)
Public Sub onLookUp1(sender As Object, SelectedValues As List(Of String))
If FormLoaded = False Then
Exit Sub
End If
Dim oLookup As LookupControl2 = sender
Try
If Not IsNothing(oLookup.SelectedValues) Then
If oLookup.SelectedValues.Count = 1 Then
Dim oLOOKUPValue = oLookup.SelectedValues.Item(0)
If Not IsNothing(SelectedValues) Then
If SelectedValues.Count = 1 Then
Dim oLOOKUPValue = SelectedValues.Item(0)
Dim oLOOKUPName = oLookup.Name
Dim oControlID = oLookup.Tag