jj_12_01_16__2

app/DD-Record-Organiser/ClassControlLoader.vb

@@ -14,6 +14,7 @@
     End Class
 
     Public Class _ListControl : Inherits _BaseControl
+
         Public Shared Function _GetDynamicValue(controlId As Integer, formId As Integer, recordId As Integer, parentRecordId As Integer) As DynamicValue
             Dim returnValue As DynamicValue
 
@@ -70,7 +71,7 @@
             End Try
         End Function
 
-       
+
     End Class
 
     Public Structure DynamicValue
@@ -174,8 +175,8 @@
 
                     Dim sw2 = Stopwatch.StartNew()
 
-                    '' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt, 
-                    '' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
+                    ' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt, 
+                    ' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
                     control.DataSource = Nothing
                     control.SelectedIndex = -1
 
@@ -261,15 +262,25 @@
 
                 If dynamic.DataTable IsNot Nothing AndAlso dynamic.DataTable.Rows.Count > 0 Then
                     Dim dt As DataTable = dynamic.DataTable
+                    Dim columnCount As Integer = dt.Columns.Count
 
-                    control.DataSource = dt
-                    If dt.Columns.Count = 1 Then
+                    ' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt, 
+                    ' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
+                    control.DataSource = Nothing
+                    control.SelectedIndex = -1
+
+                    ' Es ist wichtig, dass DisplayMember und ValueMember VOR der DataSource festgelegt werden,
+                    ' Dadurch ist das Laden der Datasource um einiges SCHNELLER
+                    If columnCount = 1 Then
                         control.DisplayMember = dt.Columns(0).ColumnName
                         control.ValueMember = dt.Columns(0).ColumnName
-                    ElseIf dt.Columns.Count = 2 Then
+                    ElseIf columnCount = 2 Then
                         control.DisplayMember = dt.Columns(1).ColumnName
                         control.ValueMember = dt.Columns(0).ColumnName
                     End If
+
+                    ' Als letztes setzen wir die DataSource
+                    control.DataSource = dt
                 End If
 
             Catch ex As Exception