jj 14.03 work on dgv

2016-03-14 15:48:25 +01:00
parent 0f271342b6
commit 0786619d10
2 changed files with 4 additions and 9 deletions
--- a/app/DD-Record-Organiser/ClassControlLoader.vb
+++ b/app/DD-Record-Organiser/ClassControlLoader.vb
@@ -401,14 +401,9 @@

            ' SQLCommand ignorieren
            If dynamic.StaticList IsNot Nothing Then
-                Dim bindingSource As New BindingSource()
-
-                For Each item As String In dynamic.StaticList
-                    bindingSource.Add(item)
-                Next
-
-                'control.DataSource = dynamic.StaticList
-                control.DataSource = bindingSource
+                control.DataSource = dynamic.StaticList.Select(Function(v)
+                                                                   Return New With {Key .Value = v}
+                                                               End Function)
            End If

        End Sub