- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]目录树的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133436)
-- 发布时间：2019/4/14 0:31:00
-- [求助]目录树的问题
子节点全部不勾选的时候，如何让父节点也不勾选。下面代码是哪里错了呀。
For Each nd As WinForm.TreeNode In e.Node.AllNodes
If nd.Checked = True Then \'如果本次操作为清除节点选中状态
a = a + 1
End If
Next
Dim pd As WinForm.TreeNode = e.node.ParentNode \'获取父节点
If pd IsNot Nothing AndAlso a = 0 Then
pd.Checked = False \'清除父节点选中状态
End If
-- 发布时间：2019/4/14 10:32:00
--
参考
http://www.foxtable.com/webhelp/scr/1947.htm
http://www.foxtable.com/webhelp/scr/2503.htm
-- 发布时间：2019/4/14 16:00:00
--
尝试了好久，还是没能实现，我说的情况跟范例还有些不同
我是希望当所有子节点不勾选的时候，父节点也不勾选。
-- 发布时间：2019/4/14 16:41:00
--
你写的代码没问题啊，请上传实例，说明要做到的效果。
-- 发布时间：2019/4/14 21:45:00
--
像这样。当子节点全部未选中时，父节点也取消选中状态。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
此主题相关图片如下：1.png
[此贴子已经被作者于2019/4/14 21:48:13编辑过]
-- 发布时间：2019/4/14 22:01:00
--
Dim a As Integer = 0
Dim pd As WinForm.TreeNode = e.node.ParentNode \'获取父节点
If pd IsNot Nothing Then
For Each nd As WinForm.TreeNode In pd.AllNodes
If nd.Checked = True Then \'如果本次操作为清除节点选中状态
a = a + 1
Else
pd.Checked = False
End If
Next
If a = pd.AllNodes.Count Then
pd.Checked = True \'清除父节点选中状态
End If
Else
For Each nd As WinForm.TreeNode In e.node.AllNodes
If nd.Checked = True Then \'如果本次操作为清除节点选中状态
Else
e.node.Checked = False
End If
Next
End If
-- 发布时间：2019/4/15 17:16:00
--
我改了一下代码，功能实现了。但是出现了另外的问题。
我慢慢点节点1的时候，是正常的。但是我快速点击的时候。就不对了
此主题相关图片如下：2.png
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.table |
-- 发布时间：2019/4/15 17:28:00
--
这个是bug，无法处理的。双击的时候没办法。