以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树节点删除线能实现不？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95402)
--  作者：jiskin
--  发布时间：2017/1/18 18:15:00
--  目录树节点删除线能实现不？
如题，我表中有个逻辑字段想用来判断目录树对应的节点，如果是true 则节点内容显示为有删除线效果
但是节点找不到相关字体设置，各位老板帮忙研究下 谢谢
--  作者：有点色
--  发布时间：2017/1/18 18:27:00
--  

要这样做

 

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

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

 
--  作者：jiskin
--  发布时间：2017/1/18 18:34:00
--  
以下是引用有点色在2017/1/18 18:27:00的发言：

要这样做

 

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

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

 

 

色大湿，能否详细点，我是想在生成树的时候 把 dr("删除") = true 的节点加上删除线效果
--  作者：有点色
--  发布时间：2017/1/18 19:31:00
--  

循环每一个节点

 

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

[此贴子已经被作者于2017/1/18 19:31:12编辑过]
--  作者：有点色
--  发布时间：2017/1/18 19:34:00
--  

 

[此贴子已经被作者于2017/1/18 19:34:17编辑过]