MS

LookupGrid/LookupControl.vb

@@ -11,10 +11,24 @@ Public Class LookupControl
     <Category("Einstellungen"), Description("Gibt an, ob das Hinzufügen von identischen Werten erlaubt ist"), DefaultValue(False)>
     Public Property PreventDuplicates As Boolean
 
-    <Browsable(False)>
+
     Public Property DataSource As DataTable
-    <Browsable(False)>
-    Public Property SelectedValues As New List(Of String)
+
+    Public Property SelectedValues As List(Of String)
+        Get
+            If _selectedValues Is Nothing Then
+                Return New List(Of String)
+            End If
+
+            Return _selectedValues
+        End Get
+        Set(value As List(Of String))
+            _selectedValues = value
+
+            UpdateSelectedValues(value)
+        End Set
+    End Property
+    Private _selectedValues As List(Of String)
 
     Private _lookupControlMulti As GridLookUpEdit
     Private _lookupControlSingle As ButtonEdit