TreeView 数目统计，请教

[ivanwfy]

如上图所示：默认,sky,sea节点下各有一篇文章，现在想实现：让每个节点显示所包含文章的总数，也就是默认(3),sky(2),sea(1),sea下面可能还有无限级的节点，如果它们也含有文章，也要统计到父节点中去，请问怎么统计并更改 (文章数目根据括号中的数值来算即可，每个节点自身的文章数我已经算好了）

简单来说就是：怎么把子节点括号中的数字，累计到父节点中

[office_2007]

您说的意思是包括父节点本身也加起来所有子节点都要合计总算吗？

[ivanwfy]

对，是的，目前节点括号中的数字，就是该节点自身下面的文章数，所以只要累计到各自父节点即可，节点可能是无限级的

[office_2007]

两个类各复制到它自己的位置就行了。

' 这个类复制到类模块内的
Public Class Class1
    Private List1 As New List(Of Integer)
    Private NextKey1 As Integer = 0
    Private TreeView1 As TreeView
    Public Property _TreeView1() As TreeView
        Get
            Return TreeView1
        End Get
        Set(ByVal value As TreeView)
            TreeView1 = value
        End Set
    End Property

    Public Sub MySub()
        Dim Sum1 As Integer = List1.Sum
        ' TreeView1.Nodes
        ReadAllNode(TreeView1.Nodes)
    End Sub

    Private Sub ReadAllNode(ByVal Nodes1 As TreeNodeCollection)
        Dim Val1 As Integer
        Dim Str1 As String
        Dim Str2 As String
        Dim Str3 As String
        For Each S As TreeNode In Nodes1
            Str2 = S.Text
            Str3 = S.FullPath

            If S.Nodes.Count > 0 Then
                ReadAllNode(S.Nodes)
            End If
            If String.Equals(Str2, Str3) Then
                Str1 = Str2.Split("(").ElementAt(0)
                TreeView1.Nodes.Item(NextKey1).Text = Str1 & "(" & List1.Sum & ")"
                List1.Clear()
                NextKey1 += 1
            Else
                Val1 = Val(Str2.Split("(").ElementAt(1))
                List1.Add(Val1)
            End If
        Next
    End Sub

End Class

'这个类是窗体的
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Cla1 As New Class1
        Cla1._TreeView1 = Me.TreeView1
        Cla1.MySub()
    End Sub
End Class

[ivanwfy]

引用 10 楼 office_2007 的回复:

效果如下； 子节点不管怎样多，它都能正确统计到父节点中去。

有空再看下哦，大神

[office_2007]

新发帖吧， 代码免费！

[ivanwfy]

非常感谢 office_2007 的代码，现在有2个小错误 再次麻烦您看下



是不是没有引入什么文件，我用的是vb2010

[gxingmin]

List1.Sum(); Str2.Split('(');

[office_2007]

我动手前有必要再次问，因为，又发生矛盾问题。 您的要求是 本节点下又有子节点时，本节点的数值不应该包含吧，只计算本节点下的合计到本节点上显示对吗？ 我认为只有这样符合第三个父节点的算法了。

[gxingmin]

看错，以为是c＃代码

[gxingmin]

此类的头部要加上 import System.Linq

[office_2007]

例如； 本节点11下有12，13，14这样三个同级节点，那么本节点11上显示39对吗

[office_2007]

您复制的代码不完整，请看看哪个漏掉的，MySub字过程后面怎么只有 End If 吗？ 下面的部分哪儿去了吗？ 声明的部分您漏掉了当然引发这类错误。请完整的复制代码。

 Private Sub ReadAllNode(ByVal Nodes1 As TreeNodeCollection)
        Dim Val1 As Integer
        Dim Str1 As String
        Dim Str2 As String
        Dim Str3 As String
        For Each S As TreeNode In Nodes1
            Str2 = S.Text
            Str3 = S.FullPath
 
            If S.Nodes.Count > 0 Then
                ReadAllNode(S.Nodes)

[ivanwfy]

嗯，是我忘了引入Imports System.Linq ，感谢2位，辛苦了

[office_2007]

效果如下； 子节点不管怎样多，它都能正确统计到父节点中去。

[ivanwfy]

真的非常感谢你花这么多时间关注，可能我之前的描述不够清楚，我想实现，每个有子节点的节点都汇总，像这样