MSKW37

app/DD-Record-Organizer/ClassNodeNavigation.vb

@@ -1,12 +1,47 @@
 Public Class ClassNodeNavigation
     Public Shared NODE_CONFIGURABLE_ID As Integer
+    Public Shared MyTreeView As TreeView
+    Public Shared Datatable_Nodes As DataTable
+    Public Shared TREEVIEW_IMAGELIST As ImageList
+    Public Shared Function Return_Node(PARENT_ID As Integer, ParentNode As TreeNode)
+        Dim expression As String
+        expression = "PARENT_GUID = " & PARENT_ID 'Einschränkung auf Type  und Parent_Guid
+        Dim foundRows() As DataRow
+        foundRows = Datatable_Nodes.Select(expression)
+        Dim q As Integer
+        For q = 0 To foundRows.GetUpperBound(0)
+            Dim ID9 = foundRows(q)("GUID")
+            Dim LevelEntity9 = foundRows(q)("ENTITY_ID")
+            Dim controlID9 = foundRows(q)("CONTROL_ID")
+            Dim nodetext9 = foundRows(q)("NODE_CAPTION")
+            Dim RECORD_ID = foundRows(q)("RECORD_ID")
+            Dim NODE_CONFIG_ID = foundRows(q)("NODE_CONFIG_ID")
+            ' Node erstellen..
+            Dim NEW_NODE As TreeNode
+            NEW_NODE = New TreeNode(nodetext9)
+            ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity9)
+            NEW_NODE.Tag = ClassNodeNavigation.CreateNODE_TAG(LevelEntity9, ID9, RECORD_ID, NODE_CONFIG_ID)
+
+            Dim index = 0
+            For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
+                If img.Replace("LEVEL#ENTITY", "") = "6" & LevelEntity9.ToString Then
+                    Exit For
+                End If
+                index += 1
+            Next
+            NEW_NODE.ImageIndex = index
+            NEW_NODE.SelectedImageIndex = index
+            ' ..und einfügen
+            ParentNode.Nodes.Add(NEW_NODE)
+        Next '
+    End Function
     Public Shared Sub Check_NODE_CONFIG_ID(ENTITY_ID As Integer)
         Try
             If CURRENT_DT_NODE_CONFIGURABLE_NODES.Rows.Count > 0 Then
                 'Prüfen ob es für dieses Level einen konfigurierbaren Knoten gibt
                 Dim result = (From form In CURRENT_DT_NODE_CONFIGURABLE_NODES.AsEnumerable()
-                     Select form
-                     Where form.Item("ENTITY_ID") = ENTITY_ID).Single()
+                              Select form
+                              Where form.Item("ENTITY_ID") = ENTITY_ID).Single()
 
                 Dim ID = result.Item("GUID")
                 If Not IsNothing(ID) Then
@@ -18,7 +53,7 @@
             ClassNodeNavigation.NODE_CONFIGURABLE_ID = 0
             CURRENT_NODE_CONFIGURABLE_ID = 0
         End Try
-       
+
     End Sub
     Public Shared Function CreateNODE_TAG(Entity As Integer, IDNode As String, Record As Object, NODE_CONFIG_ID As Integer)
         Dim vType, TagString As String
@@ -73,7 +108,7 @@
                 mytrv.Nodes.Add(MAIN_NODE)
 
             Next
-            
+
             Return mytrv
         Catch ex As System.Exception
             ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodesNew (NodeNavigation): " & ex.Message, True)
@@ -189,9 +224,9 @@
             MsgBox("Error in FindNode (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             Return Nothing
         End Try
-      
+
     End Function
-  
+
     Public Shared Function CreateTreeViewNodes(DT_TREEVIEW_PER_CONTROLS As DataTable, TREEVIEW_IMAGELIST As ImageList)
         Try
             Dim mytrv As New TreeView