主题：[分享]通用多级目录树筛选

这段代码是不完整的：

If e.node.ParentNode IsNot Nothing Then '去掉父节点选中状态
    e.node.ParentNode.Checked = False
    Inum = e.Node.ParentNode.Nodes.Count
    For Each nd In e.Node.ParentNode.Nodes
        If nd.Checked Then
            Inum = Inum -1
        End If
    Next
   
    If Inum = 0 Then
        e.Node.ParentNode.Checked = True
    End If
End If

上面代码无法确定父节点的父节点的···的选中状态，正解见： http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=30049&authorid=0&page=0&star=3

另外，把日期的0:00:00去掉：

在AfterLoad中加上代码：

Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim nd As WinForm.TreeNode
For Each ndd As winform.treenode In tr.allnodes
    If ndd.text.contains("0:00:00")
        ndd.text = ndd.name.replace("0:00:00","")
    End If
Next