以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]单击目录树复选框,选中全部同级节点,不是子节点。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=37701)

--  作者:FOTOER
--  发布时间:2013/7/9 0:07:00
--  [求助]单击目录树复选框,选中全部同级节点,不是子节点。


图片点击可在新窗口打开查看此主题相关图片如下:目录树.jpg
图片点击可在新窗口打开查看
如图:单击目录树复选框的“全选”节点,选中全部同级节点,没有子节点。

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

For Each nd As WinForm.TreeNode In trv.AllNodes
    If e.node.Index=0
        If e.node.Checked = True
            nd.Checked = True
        End If
    End If
Next

上面代码运行后,程序自动退出。

请各位大师给指点。


--  作者:lsy
--  发布时间:2013/7/9 7:36:00
--  

运行正常,未发现敌情

Enter

e.Sender.BuildTree("表A","第一列")
e.Sender.Nodes.Insert("全选",0)

AfterCheckNode

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If e.node.Index = 0
        If e.node.Checked = True
            nd.Checked = True
        Else
            nd.Checked = False
        End If
    End If
Next


--  作者:实话实说
--  发布时间:2013/7/9 12:19:00
--  
仍退出
--  作者:FOTOER
--  发布时间:2013/7/9 12:26:00
--  

换了个版本,问题已解决。

感谢。

[此贴子已经被作者于2013-7-9 12:26:10编辑过]