jj 30.08

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -1222,6 +1222,8 @@ Public Class frmConstructor_Main
                     foundRowsLevel0 = DT_TREEVIEW_PER_CONTROLS.Select(expression)
                     Dim i As Integer
                     Dim NODE_CONFIG_ID
+                    Dim LEVEL0_NODE As TreeNode
+
                     ' For each row create a Node
                     For i = 0 To foundRowsLevel0.GetUpperBound(0)
                         Dim ID = foundRowsLevel0(i)("GUID")
@@ -1231,7 +1233,7 @@ Public Class frmConstructor_Main
                         Dim Type_node = foundRowsLevel0(i)("TYPE_NODE")
                         Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID")
                         NODE_CONFIG_ID = foundRowsLevel0(i)("NODE_CONFIG_ID")
-                        Dim LEVEL0_NODE As TreeNode
+
                         LEVEL0_NODE = New TreeNode(nodetext)
                         If Not IsDBNull(RECORD_ID) Then
                             LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID & "#RECORD-ID" & RECORD_ID.ToString
@@ -1248,7 +1250,7 @@ Public Class frmConstructor_Main
                         Next
                         LEVEL0_NODE.ImageIndex = index
                         LEVEL0_NODE.SelectedImageIndex = index
-                        TreeViewMain.Nodes.Add(LEVEL0_NODE)
+
                         '### LEVEL 1 laden #######
                         Dim expressionLevel1 As String
                         expressionLevel1 = "PARENT_GUID = " & ID 'TYPE_NODE = 1 AND  Einschränkung auf Type 2 und Parent_Guid
@@ -1532,6 +1534,8 @@ Public Class frmConstructor_Main
                         Next 'Level 1 Ende
                     Next
 
+                    TreeViewMain.Nodes.Add(LEVEL0_NODE)
+
 
                 Else
                     MsgBox("Check the Control Navigation Option or inform Digital Data!", MsgBoxStyle.Critical)
@@ -1741,7 +1745,7 @@ Public Class frmConstructor_Main
                         FAU_AD_USER_PW = PWplainText
                     Next
                 End If
-              
+
 
                 Dim elapsed As Double
                 elapsed = sw.Elapsed.TotalSeconds
@@ -2726,7 +2730,20 @@ Public Class frmConstructor_Main
                 TabDetails.PageVisible = True
                 GridControlMain.Visible = True
 
-                Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "LoadEntityData - Get DTEntity")
+                progressLoadEntity.Visible = True
+                labelLoadEntity.Visible = True
+                Dim async As New ClassAsyncSQL(_ENTITYSQL)
+                async.bw.RunWorkerAsync()
+                While async.bw.IsBusy
+                    Application.DoEvents()
+                End While
+                progressLoadEntity.Visible = False
+                labelLoadEntity.Visible = False
+                Dim DTEntity As DataTable = async.dt
+
+                'Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "LoadEntityData - Get DTEntity")
+
+
                 DTEntity.TableName = "VWTEMP_PMO_FORM" & ENTITY_ID
                 If IsNothing(DTEntity) Then
                     MsgBox("Unexpected Error in getting Entity-Data - Check Logfile", MsgBoxStyle.Critical)