add default value for lookupgrid

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)