jj__25_01_16

app/DD-Record-Organiser/ClassControlValues.vb

@@ -97,17 +97,25 @@ Public Class ClassControlValues
             End If
             Dim SW As Stopwatch = Stopwatch.StartNew()
 
+
+            Dim swsql As Stopwatch = Stopwatch.StartNew()
+
             ' Zuerst alle SQL Commands für FormID finden
             ' CONTROL_SQLCOMMAND_1 wird als SQL gealiast
             Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID)
             Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
 
+            swsql.Stop()
+            Console.WriteLine("LoadControlValuesList - Database took {0} milliseconds to load", swsql.ElapsedMilliseconds)
+
             If dt.Rows.Count = 0 Then
                 Exit Sub
             End If
 
             For Each Ctrl As Control In controls
 
+                Dim swcontrol As Stopwatch = Stopwatch.StartNew()
+
                 Dim controlTagId = CInt(Ctrl.Tag)
                 'If controlTagId = 474 Then
                 '    MsgBox("Thats it")
@@ -135,6 +143,9 @@ Public Class ClassControlValues
                         ControlLoader.CheckedListBox.LoadList(chlistbox, FormID, sqlcommand)
 
                 End Select
+
+                swcontrol.Stop()
+                Console.WriteLine("LoadControlValuesList Loading {0} took {1} milliseconds to load", Ctrl.Name, swcontrol.ElapsedMilliseconds)
             Next
 
             SW.Stop()