From e709611a953b701923b32af00387824d694e11fd Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 25 Jun 2018 10:52:25 +0200 Subject: [PATCH] jj: add deselect for choicelists --- app/DD_PM_WINDREAM/frmFormDesigner.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 9ab8225..a9c7a8a 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -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