主题：请教：如何判断目录树的最末级节点？

IF  最末级节点  THEN

加入红色代码后，没有反应了。

        Dim dr1 As DataRow = e.Node.DataRow

        Dim b As WinForm.TreeView = e.Form.Controls("TreeView2")

        b.GenerateTree("工作内容","编号","工作内容", ".","编号 like '" & dr1("项目编码") & "%'")

        

        For Each n As WinForm.TreeNode In b.AllNodes

            If n.Level = 1 Then

                Dim dr As DataRow = n.DataRow

                For Each drr As DataRow In DataTables("定额库").Select("代码 in ('" & dr("代码").replace(";","','") & "')")

                    n.Nodes.Add(drr("名称"))

                Next

            End If

        Next

        b.ExpandAll()

2、点击其他节点无效，防止加载的内容过多。