主题：目录树节点删除线能实现不？

要这样做

Dim btv As Ojbect = e.Form.Controls("TreeView").BaseControl

btv.Nodes(0).NodeFont = New Font("宋体", 12)

循环每一个节点

Dim btv As Object '= e.Form.Controls("TreeView").BaseControl
For Each nd As object In btv.nodes '第一层
    For Each cnd As object In nd.nodes '第二层
        Dim fdr As DataRow = DataTables("表A").find("第一列 = '" & nd.text & "' and 第二列 = '" & cnd.text & "'")
        If fdr IsNot Nothing Then
            If fdr("第三列") = True Then
                cnd.NodeFont = New Font("宋体", 12, FontStyle.Underline)
            End If
        End If
    Next
Next