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

Move to LookupControl3 for Globix

Browse Source
This commit is contained in:
Jonathan Jenne
2021-03-22 15:58:20 +01:00
parent a34c29d8e2
commit 21bf3a7d32
7 changed files with 170 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
GUIs.ZooFlow/Globix/GlobixPatterns.vb
View File

@@ -216,22 +216,22 @@ Public Class GlobixPatterns
_Logger.Error(ex)
_Logger.Warn("Control Value for CheckBox [{0}] could not be retrieved!", oFoundControl.Name)
End Try
ElseIf TypeOf oFoundControl Is LookupControl2 Then
ElseIf TypeOf oFoundControl Is LookupControl3 Then
Try
Dim oLookupControl = DirectCast(oFoundControl, LookupControl2)
Dim oLookupControl = DirectCast(oFoundControl, LookupControl3)
If oLookupControl.MultiSelect Then
If oLookupControl.Properties.MultiSelect Then
Select Case oFoundType
Case "INTEGER"
oValue = String.Join(",", oLookupControl.SelectedValues)
oValue = String.Join(",", oLookupControl.Properties.SelectedValues)
Case "VARCHAR"
Dim oWrapped = oLookupControl.SelectedValues
Dim oWrapped = oLookupControl.Properties.SelectedValues
oValue = String.Join(",", oWrapped)
Case Else
_Logger.Warn("Lookup Control with [{0}] is not supported!", oFoundType)
End Select
Else
oValue = NotNull(oLookupControl.SelectedValues.Item(0), "")
oValue = NotNull(oLookupControl.Properties.SelectedValues.Item(0), "")
End If
Catch ex As Exception
_Logger.Error(ex)