SelectedValuesIssue

This commit is contained in:
Digital Data - Marlon Schreiber 2019-05-23 10:35:34 +02:00
parent 74cb20b4ec
commit 54afd3754f

View File

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