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

ms

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-12-13 14:56:40 +01:00
parent abbc238bf6
commit 06080901f5
7 changed files with 78 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
View File

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