diff --git a/Global_Indexer/ClassControls.vb b/Global_Indexer/ClassControls.vb index d202b26..c75b59a 100644 --- a/Global_Indexer/ClassControls.vb +++ b/Global_Indexer/ClassControls.vb @@ -75,6 +75,14 @@ Public Class ClassControls } } + If Not String.IsNullOrEmpty(Vorgabe) Then + Dim oDefaultValues = Vorgabe. + Split(",").ToList(). + Select(Function(item) item.Trim()). + ToList() + oControl.SelectedValues = oDefaultValues + End If + AddHandler oControl.SelectedValuesChanged, AddressOf Lookup_SelectedValuesChanged oConnectionString = ClassFormFunctions.GetConnectionString(conid) @@ -87,6 +95,8 @@ Public Class ClassControls End If End If + + Return oControl Catch ex As Exception LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)