jj 24.08

app/DD-Record-Organiser/ClassControlLoader.vb

@@ -431,6 +431,9 @@
                 Exit Sub
             End If
 
+            CURRENT_RECORD_ENABLED = False
+            control.UnCheckAll()
+
             For Each v As String In values
                 'For i As Integer = 0 To control.ItemCount - 1
 
@@ -439,6 +442,7 @@
                 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)
@@ -449,9 +453,9 @@
                         Exit While
                     End If
                 End While
-
-
             Next
+
+            CURRENT_RECORD_ENABLED = True
         End Sub
 
         Public Shared Sub LoadList(control As DevExpress.XtraEditors.CheckedListBoxControl, formId As Integer, conn_Id As Object, SQLCommand As String)