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

如题，我表中有个逻辑字段想用来判断目录树对应的节点，如果是true 则节点内容显示为有删除线效果

要这样做

 

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

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

 

 

色大湿，能否详细点，我是想在生成树的时候 把 dr("删除") = true 的节点加上删除线效果

循环每一个节点

 

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