以下是项目的全部代码，能麻烦您帮我指出是哪几句生成了目录树吗？

项目事件

AfterOpenProject

Tables("表A").Cols("第一列").DropForm  = "窗口1"

计划管理

表事件

窗口表事件

窗口与控件事件

窗口1_Button1_Click

Dim s As String

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

For Each nd As WinForm.TreeNode In trv.AllNodes

    If nd.Checked Then

        s = s & "," & nd.Text

    End If

Next

e.Form.DropDownBox.Value = s.trim(",")

e.Form.DropDownBox.CloseDropdown

窗口1_DropDownOpened

Dim s As String  = e.Form.DropDownBox.Value

Dim nms As new List(of String)

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

If s > "" Then

    nms.AddRange(s.Split(","))

End If

For Each nd As WinForm.TreeNode In trv.AllNodes

    nd.Checked = nms.Contains(nd.text)

Next

自定义函数

全局代码

菜单事件