以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]目录树  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143478)

--  作者:miaoqingqing
--  发布时间:2019/11/26 12:00:00
--  [求助]目录树
想实现目录树点击一级节点,只展开二级节点单选,点击二级节点,展开三级节点可以多选
求助

--  作者:有点蓝
--  发布时间:2019/11/26 12:03:00
--  
在AfterCheckNode事件判断,如果勾选的是二级节点,就去掉其它二级节点的勾选
--  作者:miaoqingqing
--  发布时间:2019/12/27 11:21:00
--  回复:(有点蓝)在AfterCheckNode事件判断,如果勾选...
不懂怎么写这个代码,求助
--  作者:有点蓝
--  发布时间:2019/12/27 11:33:00
--  
If e.node.Level = 1 Then
    For Each n As WinForm.TreeNode In e.node.parentnode.Nodes
        If n.Index <> e.node.Index AndAlso n.Checked Then
            n.Checked = False
        End If
    Next
End If

--  作者:miaoqingqing
--  发布时间:2019/12/27 17:01:00
--  回复:(有点蓝)If e.node.Level = 1 Then  &nb...
勾选二级节点时,如果之前一级节点有勾选则取消勾选。
已勾选一个二级节点,再勾选一级节点,则已勾选的一个二级节点取消勾选

要增加实现上面两个功能,上楼代码怎么修改,求助



--  作者:有点蓝
--  发布时间:2019/12/27 17:10:00
--  
If e.node.Level = 1 Then
    if e.node.Checked then e.node.parentnode.Checked  = false
    For Each n As WinForm.TreeNode In e.node.parentnode.Nodes
        If n.Index <> e.node.Index AndAlso n.Checked Then
            n.Checked = False
        End If
    Next
elseIf e.node.Level = 0 Then
if e.node.Checked then
    For Each n As WinForm.TreeNode In e.node.Nodes
        n.Checked = False
    Next
end if
End If

--  作者:miaoqingqing
--  发布时间:2019/12/27 17:58:00
--  回复:(有点蓝)If e.node.Level = 1 Then  &nb...
坛主,上楼代码,没效果,是否有误?
--  作者:miaoqingqing
--  发布时间:2019/12/27 18:00:00
--  
坛主,上楼代码,目录树显示复选框是,操作没效果,是否有误?
--  作者:有点蓝
--  发布时间:2019/12/27 21:11:00
--  
上传实例说明