jj 14.03 fix clb

app/DD-Record-Organiser/ClassControlLoader.vb

@@ -355,7 +355,11 @@
                 Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, conn_Id, SQLCommand)
 
                 If dynamic.StaticList IsNot Nothing Then
-                    control.DataSource = dynamic.StaticList
+                    control.Items.Clear()
+                    For Each item In dynamic.StaticList
+                        control.Items.Add(item)
+                    Next
+                    'control.DataSource = dynamic.StaticList
                 End If
 
                 If dynamic.DataTable IsNot Nothing AndAlso dynamic.DataTable.Rows.Count > 0 Then
@@ -401,9 +405,7 @@
 
             ' SQLCommand ignorieren
             If dynamic.StaticList IsNot Nothing Then
-                control.DataSource = dynamic.StaticList.Select(Function(v)
-                                                                   Return New With {Key .Value = v}
-                                                               End Function)
+                control.DataSource = dynamic.StaticList
             End If
 
         End Sub