LookupGrid: Version 3.0.3

Controls.LookupGrid/LookupControl3.vb

@@ -233,11 +233,13 @@ Public Class RepositoryItemLookupControl3
                     If oForm.NewValues.Count > 0 AndAlso TypeOf DataSource Is DataTable Then
                         Dim oTable As DataTable = DirectCast(DataSource, DataTable)
 
-                        For Each oValue In oForm.NewValues
-                            Dim oRow = oTable.NewRow()
-                            oRow.Item(0) = oValue
-                            oTable.Rows.Add(oRow)
-                        Next
+                        If oTable.TableName <> NAME_DATATABLE_INTERNAL Then
+                            For Each oValue In oForm.NewValues
+                                Dim oRow = oTable.NewRow()
+                                oRow.Item(0) = oValue
+                                oTable.Rows.Add(oRow)
+                            Next
+                        End If
                     End If
                 End If
             End Using

Controls.LookupGrid/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("3.0.2.0")>
-<Assembly: AssemblyFileVersion("3.0.2.0")>
+<Assembly: AssemblyVersion("3.0.3.0")>
+<Assembly: AssemblyFileVersion("3.0.3.0")>

GUIs.Test.TestGUI/frmLookup.vb

@@ -9,18 +9,22 @@ Public Class frmLookup
 
         Dim LookupControl31 As New LookupControl3 With {
             .Location = New Point(10, 10),
-            .Size = New Drawing.Size(100, 27)
+            .Size = New Size(300, 27)
         }
         Dim LookupControl32 As New LookupControl3 With {
             .Location = New Point(10, 60),
-            .Size = New Drawing.Size(100, 27)
+            .Size = New Size(300, 27)
         }
         Dim LookupControl33 As New LookupControl3 With {
             .Location = New Point(10, 110),
-            .Size = New Drawing.Size(100, 27)
+            .Size = New Size(300, 27)
+        }
+        Dim LookupControl34 As New LookupControl3 With {
+            .Location = New Point(10, 160),
+            .Size = New Size(300, 27)
         }
 
-        Controls.AddRange({LookupControl31, LookupControl32, LookupControl33})
+        Controls.AddRange({LookupControl31, LookupControl32, LookupControl33, LookupControl34})
 
         LookupControl31.Properties.DataSource = oTable
 
@@ -29,10 +33,12 @@ Public Class frmLookup
         LookupControl32.Properties.ValueMember = "Col1"
         LookupControl32.Properties.DataSource = oTable
 
-
         LookupControl33.Properties.AllowAddNewValues = True
         LookupControl33.Properties.MultiSelect = True
         LookupControl33.Properties.DataSource = oTable
+
+        LookupControl34.Properties.AllowAddNewValues = True
+        LookupControl34.Properties.MultiSelect = True
     End Sub
 
     Private Function GetDatatable(Limit As Integer) As DataTable