- 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=37701)
-- 发布时间：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
上面代码运行后，程序自动退出。
请各位大师给指点。
-- 发布时间：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
--
仍退出
-- 发布时间：2013/7/9 12:26:00
--
换了个版本，问题已解决。
感谢。
[此贴子已经被作者于2013-7-9 12:26:10编辑过]