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

SelectedValuesIssue

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-05-23 10:35:34 +02:00
parent 74cb20b4ec
commit 54afd3754f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -2439,6 +2439,7 @@ Public Class frmValidator
Dim oLookup As LookupControl2 = oControl Dim oLookup As LookupControl2 = oControl
Dim oWindreamValue = CURRENT_WMFILE.GetVariableValue(oWMIndexName) Dim oWindreamValue = CURRENT_WMFILE.GetVariableValue(oWMIndexName)
Try Try
oLookup.SelectedValues = Nothing
oLookup.SelectedValues = New List(Of String) oLookup.SelectedValues = New List(Of String)
Catch ex As Exception Catch ex As Exception
@ -2447,6 +2448,7 @@ Public Class frmValidator
If oWindreamValue.GetType.ToString.Contains("System.Object") Then If oWindreamValue.GetType.ToString.Contains("System.Object") Then
Dim oArrlist As New List(Of String) Dim oArrlist As New List(Of String)
For Each oVectorRow As Object In oWindreamValue For Each oVectorRow As Object In oWindreamValue
Dim Ocontent = oVectorRow.ToString
oArrlist.Add(oVectorRow.ToString) oArrlist.Add(oVectorRow.ToString)
Next Next
oLookup.SelectedValues = oArrlist oLookup.SelectedValues = oArrlist