以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树节点改名  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54475)
--  作者：逆行舟
--  发布时间：2014/7/29 11:06:00
--  目录树节点改名

目录树节点改名

 

数据库中数据为0　和1　
0代码未审　1代点已审

目录树节点自动生成后为“0”和“1”　，现在要改成“未审”“已审”
--  作者：Bin
--  发布时间：2014/7/29 11:10:00
--  
遍历所有节点,如果节点名称=0 节点文本Text属性 改为  "未审"  即可

搞不定请上例子.
--  作者：逆行舟
--  发布时间：2014/7/29 11:22:00
--  

目录树长在窗口里

目录树checked的值　和0　和　1　显示的时候想显示未审　已审

窗口生成的时候生成了目录树
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[checked] = \'" & dr("checked") & "\'"
        Case 1
            Filter = "[checked] = \'" & dr("checked") & "\' And [portdis] = \'" & dr("portdis") & "\'"
     
    End Select
End If
Tables("tz").Filter = Filter

[此贴子已经被作者于2014-7-29 11:23:42编辑过]
--  作者：Bin
--  发布时间：2014/7/29 11:33:00
--  
放到你生成目录树的代码后面

Dim a As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In a.AllNodes
    Select Case nd.name
           Case "0"
               nd.text="未审"
           Case "1"
               nd.text="已审"
    End Select
Next
--  作者：逆行舟
--  发布时间：2014/7/29 12:58:00
--  

成功！