jj 13_01_16

app/DD-Record-Organiser/ClassControlLoader.vb

@@ -293,6 +293,10 @@
     Public Class ListBox : Inherits _ListControl
 
         Public Shared Sub LoadValue(control As DevExpress.XtraEditors.ListBoxControl, value As String)
+            If IsNothing(value) Then
+                Exit Sub
+            End If
+
             control.SelectedIndex = control.FindStringExact(value)
         End Sub
 
@@ -305,15 +309,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
         End Sub