主题：[求助] 目录树不能全部显示

窗口与控件事件

目录窗口_AfterLoad

'(打开窗口自动生成,如是按钮Click事件则需点击按钮)

' 点击按钮生成目录树.【递归:通过母序号与序号】

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode

Dim dt As DataTable = DataTables("q")

tr.StopRedraw()

tr.Nodes.Clear

tr.Nodes.Add("全部")

For Each dr As DataRow In dt.datarows

    If dr.IsNull("母序号") Then

        nd = tr.Nodes.Add(dr("序号"),dr("序号") & dr("标题"))

        Functions.Execute("AddChildren",nd,dt)

    End If

Next

tr.ResumeRedraw()

目录窗口_Button1_Click

' 点击按钮生成目录树.【递归:通过母序号与序号】

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode

Dim dt As DataTable = DataTables("q")

tr.StopRedraw()

tr.Nodes.Clear

tr.Nodes.Add("全部")

For Each dr As DataRow In dt.datarows

    If dr.IsNull("母序号") Then

        nd = tr.Nodes.Add(dr("序号"),dr("标题"))

        Functions.Execute("AddChildren",nd,dt)

    End If

Next

tr.ResumeRedraw()

目录窗口_TreeView1_NodeMouseDoubleClick

' 点击 目录 后 生成 目录树表,双击 节点 后 展开

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim key As String = e.Node.Name

Dim ids As String

If key = "全部" Then

    Tables("q").Filter = ""

Else

    For Each nd As WinForm.TreeNode In trv.AllNodes

        Dim pd As WinForm.TreeNode = nd

        Do

            If pd.Name = key Then

                If ids > "" Then

                    ids= ids &  ","

                End If

                ids = ids & "'" & nd.name & "'"

                Exit Do

            Else

                pd = pd.ParentNode

                If pd Is Nothing Then

                    Exit Do

                End If

            End If

        Loop

    Next

    Tables("q").Filter = "序号 In (" & ids & ")"

End If

自定义函数

AddChildren

'http://www.foxtable.com/help/topics/2502.htm

Dim nd As WinForm.TreeNode = args(0)

Dim dt As DataTable = args(1)

For Each dr As DataRow In dt.Select("","序号")

    Dim km As String = dr("序号")

    If km.StartsWith(nd.Name) AndAlso km.Length = nd.Name.Length + 2 Then

        Dim cd As Winform.TreeNode = nd.Nodes.Add(km,km & " " & dr("标题"))

        Functions.Execute("AddChildren",cd,dt)

    End If

Next