Merge branch 'master' of http://scmadmin@172.24.11.74:90/scm/git/RecordOrganizer

app/DD-Record-Organiser/ClassControlLoader.vb

@@ -376,10 +376,26 @@
             End If
 
             For Each v As String In values
-                Dim pos = control.FindStringExact(v)
-                If pos >= 0 Then
-                    control.SetItemCheckState(pos, CheckState.Checked)
-                End If
+                ' Alle Werte, die v entsprechen, anhaken
+                Dim posBefore As Integer = 0
+                While (control.FindStringExact(v, posBefore) > -1)
+                    Dim pos = control.FindStringExact(v, posBefore)
+                    ' Wenn v gefunden wurde, anhaken
+                    If pos >= 0 Then
+                        control.SetItemCheckState(pos, CheckState.Checked)
+                        posBefore = pos + 1
+                    End If
+                    ' Verhindere Endlosschleife
+                    If pos = 100 Then
+                        Exit While
+                    End If
+                End While
+
+                'Dim pos = control.FindStringExact(v)
+
+                'If pos >= 0 Then
+                '    control.SetItemCheckState(pos, CheckState.Checked)
+                'End If
             Next
         End Sub
 

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -5069,5 +5069,8 @@ Public Class frmConstructor_Main
         tsButtonCancel.Visible = False
         CtrlCommandUI.IsInsert = False
         RECORD_CHANGED = False
+
+        ' Den derzeitigen Record Neuladen
+        Column_Row_Handler()
     End Sub
 End Class