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

jj: Remove error messages for resultlists

Browse Source
This commit is contained in:
Jonathan Jenne 2018-05-23 13:44:49 +02:00
parent a3d87f3f8c
commit 3bc864952d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
View File

@ -370,7 +370,7 @@ Public Class ClassWindream_allgemein
Dim Values = oChoiceList Dim Values = oChoiceList
Values = oChoiceList.GetVariableValue("vItems") Values = oChoiceList.GetVariableValue("vItems")
Dim anz As Integer = 0 Dim anz As Integer = 0
If LogErrorsOnly = False Then MsgBox("Try getting values for resullist: " & _auswahlliste) 'If LogErrorsOnly = False Then MsgBox("Try getting values for resullist: " & _auswahlliste)
For Each CLItem In Values For Each CLItem In Values
If oChoiceList.aName IsNot Nothing Then If oChoiceList.aName IsNot Nothing Then
anz += 1 anz += 1
@ -379,7 +379,7 @@ Public Class ClassWindream_allgemein
Dim strListe(anz - 1) Dim strListe(anz - 1)
Dim zahl As Integer = 0 Dim zahl As Integer = 0
For Each CLItem In Values For Each CLItem In Values
If LogErrorsOnly = False Then MsgBox("Item: " & CLItem) 'If LogErrorsOnly = False Then MsgBox("Item: " & CLItem)
If oChoiceList.aName IsNot Nothing Then If oChoiceList.aName IsNot Nothing Then
strListe(zahl) = CLItem strListe(zahl) = CLItem
zahl += 1 zahl += 1