主题：数据提取问题

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

trv.BuildTree("房号字典", "建设期数|楼幢号|单元号|房号", "", "排序")'使用排序

trv.Nodes.Insert("显示所有行", 0)

Tables("房号字典").Filter = "房号 Is null"

trv.StopRedraw '停止绘制目录树

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点

    If e.node.nodes.count = 0 Then ''最底层的节点

           If e.DataRow.IsNull("安置状态") Then

            nd.Text = nd.DataRow("排序") & "〔" & nd.text & "〕"           

        Else         

            nd.Text = nd.DataRow("排序") & "〔" & nd.text & "〕" & nd.DataRow("安置状态")

        End If

    End If

Next

trv.ResumeRedraw '恢复绘制目录树

提示，“未知编译错误”.老师，帮我看看怎么修改？

    If nd.nodes.count = 0 Then ''最底层的节点

           If nd.DataRow.IsNull("安置状态") Then

出错提示，未将对象引用设置到对象的实例。

trv.Nodes.Insert("显示所有行", 0)放到最后

ok

蓝老师，我这个例子代码不完美，两种方法目录树代码都不完美，主要是末级显示问题，级码目录树末级显示结果希望是（项目编码+项目名称+备注）的格式；固定层级目录树末级显示正确，却无法实现筛选，请教老师完善一下代码

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目811.zip

佩服蓝老师的专业知识，太强大了

Dim nms As String() = {"产品","客户","雇员"} '指定生成目录树的各列
Dim qts As String() = {"'","'","'"} '指定将各列的值括起来的符号,这里都是字符型,所以都是单引号
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
For Each nd In e.node.allNodes '清除子节点的选中标记
    nd.Checked = False
Next
nd = e.Node.ParentNode
Do While nd IsNot Nothing '清除父节点的选中标记
    nd.Checked = False
    nd = nd.ParentNode
Loop
For Each nd In trv.AllNodes
    If nd.Checked  Then
        Dim rts() As String = nd.FullPath.Split("\")
        Dim val As String = ""
        For i As Integer = 0 To rts.length - 1
            If val > "" Then
                val = val & " And "
            End If
            val = val & nms(i) & " = " & qts(i) & rts(i) & qts(i)
        Next
        If flt > "" Then
            flt = flt & " Or (" & val & ")"
        Else
            flt = val
        End If
    End If
Next
Tables("订单").Filter  = flt

蓝老师，这是帮助里多选筛选树代码，我想用以下代码选择节点的方法，请教怎么修改上述代码

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

For Each nd1 As WinForm.TreeNode In e.Node.AllNodes '清除子节点的选中标记

    nd1.Checked = e.Node.Checked

Next

Dim pd As WinForm.TreeNode = e.Node.ParentNode

If pd IsNot Nothing Then

    Dim bb As Boolean = True

    For Each nd2 As WinForm.TreeNode In pd.Nodes

        If nd2.Checked = False Then

            bb = False

            Exit For

        End If

    Next

    pd.Checked = bb 

End If

替换下面代码即可