jj 18.05

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -794,7 +794,9 @@ Public Class frmConstructor_Main
                 sw.Start()
                 ' muss vor show selected record data kommen,
                 ' sodass die datasource für die angehakten werte existiert (checked list box)
+                CtrlBuilder.WatchRecordChanges = False
                 ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, Grid_RecordID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID)
+                CtrlBuilder.WatchRecordChanges = True
                 Show_Selected_Record_Data(Grid_RecordID, False)
                 Dim sw1 As New Stopwatch
                 sw1.Start()
@@ -821,8 +823,13 @@ Public Class frmConstructor_Main
                 End If
             End If
         End If
+
+        'Liste der geänderten Control Values leeren
+        CtrlBuilder.ControlsChanged.Clear()
+
         elapsed = sw.Elapsed.TotalSeconds
         sw.Stop()
+        Console.WriteLine("Column_Row_Handler took {0}ms to load", sw.ElapsedMilliseconds)
         sw.Reset()
         If LogErrorsOnly = False Then ClassLogger.Add(" >>>> Column/Row Change took " & Format(elapsed, "0.000000000") & " seconds", False)
     End Sub
@@ -1579,14 +1586,16 @@ Public Class frmConstructor_Main
         If RECORD_ENABLED = False Then
             EnableEditMode()
         Else
-            Dim ResultMessage As String
-            Try
-                ResultMessage = Update_Record_OnChange()
-            Catch ex As Exception
-                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in saving Record")
-                Me.Cursor = Cursors.Default
-                Exit Sub
-            End Try
+            If RECORD_CHANGED Then
+                Dim ResultMessage As String
+                Try
+                    ResultMessage = Update_Record_OnChange()
+                Catch ex As Exception
+                    MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in saving Record")
+                    Me.Cursor = Cursors.Default
+                    Exit Sub
+                End Try
+            End If
 
             DisableEditMode()
         End If
@@ -1615,7 +1624,6 @@ Public Class frmConstructor_Main
             ClassRecordState.LockRecord(SELECTED_RECORD_ID)
         End If
 
-
         Lock_RecordControls(False)
         tsmi_RecordDelete.Enabled = True
         Me.tsButtonAdd.Enabled = True