jj: add deselect for choicelists

This commit is contained in:
Jonathan Jenne 2018-06-25 10:52:25 +02:00
parent c38e20170b
commit e709611a95

View File

@ -40,9 +40,12 @@ Public Class frmFormDesigner
Dim sortedIndicies = unsortedIndicies.OrderBy(Function(index As String) index).ToList()
Windream_AllIndicies = sortedIndicies
Windream_ChoiceLists = clsWD_GET.GetChoiceLists()
Windream_VectorIndicies = Windream_AllIndicies.FindAll(AddressOf IsVectorIndex)
Windream_SimpleIndicies = Windream_AllIndicies.Except(Windream_VectorIndicies).ToList()
Windream_ChoiceLists = New List(Of String)
Windream_ChoiceLists.Add(String.Empty)
Windream_ChoiceLists.AddRange(clsWD_GET.GetChoiceLists())
Catch ex As Exception
MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try