Private Sub TreeListViewToDataTable(dt As DataTable, ByRef nodes As TreeListNodeCollection) For Each node As TreeListNode In nodes If node.Level = 3 Then Dim fullPath As String = node.FullPath Dim strNodes() As String = fullPath.Split("\") Debug.Print(node.Nodes.Item(0).ToString) For Each s As TreeListNode In node.Nodes dt.Rows.Add(strNodes(0), strNodes(1), strNodes(2), strNodes(3), s.ToString, ..

Private Sub TreeListView_GetAvg(ByRef Trv As TreeListNodeCollection) Dim avgValue As Double Dim row As DataRow() Dim strQuery As String Dim strDepth0 As String : Dim strDepth1 As String : Dim strDepth2 As String : Dim strDepth3 As String For Each p_node As TreeListNode In Trv strDepth0 = p_node.Text strDepth1 = p_node.Nodes.Item(0).Text strDepth2 = p_node.Nodes.Item(0).Nodes.Item(0).Text strDept..

TreeListView Property 변경 AllowDrop = True AllowDefaultDragDrop = True ItemDragEventArgs Private Sub treeView_ItemDarag(sender As Object, e As ItemDragEventArgs) Handles trv_Model.ItemDrag If e.Button = MouseButtons.Left Then DoDragDrop(e.Item, DragDropEffects.Move) End If End Sub ItemDragEventArgs Private Sub Drag_n_Drop_Functions(sender As Object, e As ItemDragEventArgs) Handles trv_Model.ItemD..