<TreeListView> Column에 Average 값 넣기

 

    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
            strDepth3 = p_node.Nodes.Item(0).Nodes.Item(0).Nodes.Item(0).Text

            strQuery = String.Format(
                "[Project] = '{0}'",
                 strDepth0)
            row = _dt.Select(strQuery)

            If row.Count > 0 Then
                avgValue = row.AsEnumerable().Average(Function(x) x.Field(Of String)("level"))
            Else
                avgValue = CDbl(0.0)
            End If

            p_node.SubItems.Add(avgValue)

            For Each m_node As TreeListNode In p_node.Nodes
                strDepth0 = m_node.ParentNode.Text
                strDepth1 = m_node.Text


                strQuery = String.Format(
                "[Project] = '{0}' AND
                 [Model] = '{1}'",
                 strDepth0, strDepth1)

                row = _dt.Select(strQuery)
                If row.Count > 0 Then
                    avgValue = CDbl(row.AsEnumerable().Average(Function(x) x.Field(Of String)("level"))).ToString("F1")
                Else
                    avgValue = CDbl(0.0)
                End If

                m_node.SubItems.Add(avgValue)

                For Each s_node As TreeListNode In m_node.Nodes
                    strDepth0 = s_node.ParentNode.ParentNode.Text
                    strDepth1 = s_node.ParentNode.Text
                    strDepth2 = s_node.Text

                    strQuery = String.Format(
                    "[Project] = '{0}' AND 
                     [Model] = '{1}' AND 
                     [Step] = '{2}' ",
                    strDepth0, strDepth1, strDepth2)

                    row = _dt.Select(strQuery)
                    If row.Count > 0 Then
                        avgValue = CDbl(row.AsEnumerable().Average(Function(x) x.Field(Of String)("level"))).ToString("F1")
                    Else
                        avgValue = CDbl(0.0)
                    End If

                    s_node.SubItems.Add(avgValue)


                    For Each n_node As TreeListNode In s_node.Nodes
                        strDepth0 = n_node.ParentNode.ParentNode.ParentNode.Text
                        strDepth1 = n_node.ParentNode.ParentNode.Text
                        strDepth2 = n_node.ParentNode.Text
                        strDepth3 = n_node.Text

                        strQuery = String.Format(
                        "[Project] = '{0}' AND 
                         [Model] = '{1}' AND 
                         [Step] = '{2}' AND 
                         [이름] = '{3}' ",
                        strDepth0, strDepth1, strDepth2, strDepth3)

                        row = _dt.Select(strQuery)
                        If row.Count > 0 Then
                            avgValue = CDbl(row.AsEnumerable().Average(Function(x) x.Field(Of String)("level")))
                        Else
                            avgValue = CDbl(0.0)
                        End If

                        ' 점수 추가
                        n_node.SubItems.Add(avgValue)


                    Next '// Name

                Next '// Step

            Next '// Model

        Next '// Project

    End Sub