From 68506182d7c6317b6717a41d2b4359044edd7e93 Mon Sep 17 00:00:00 2001
From: JenneJ <j.jenne@didalog.de>
Date: Mon, 14 Mar 2016 16:11:53 +0100
Subject: [PATCH] jj 14.03 fix clb

---
 app/DD-Record-Organiser/ClassControlLoader.vb | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/app/DD-Record-Organiser/ClassControlLoader.vb b/app/DD-Record-Organiser/ClassControlLoader.vb
index 45463b0..7a12432 100644
--- a/app/DD-Record-Organiser/ClassControlLoader.vb
+++ b/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