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

Replace LookupGrid2 with Version 3

Browse Source
This commit is contained in:
Jonathan Jenne
2021-02-18 16:33:07 +01:00
parent 903e5e5c81
commit 7d054fa053
5 changed files with 109 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD_PM_WINDREAM/clsPatterns.vb
View File

@@ -172,10 +172,10 @@ Public Class clsPatterns
Select Case oControl.GetType.ToString
Case GetType(TextBox).ToString
oReplaceValue = oControl.Text
Case GetType(LookupControl2).ToString
Dim oLookupControl2 As LookupControl2 = oControl
If oLookupControl2.SelectedValues.Count = 1 Then
oReplaceValue = oLookupControl2.SelectedValues.Item(0)
Case GetType(LookupControl3).ToString
Dim oLookupControl3 As LookupControl3 = oControl
If oLookupControl3.Properties.SelectedValues.Count = 1 Then
oReplaceValue = oLookupControl3.Properties.SelectedValues.Item(0)
Else
oReplaceValue = "0"
End If