jj: add deselect for choicelists
This commit is contained in:
parent
c38e20170b
commit
e709611a95
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user