此主题相关图片如下：qq图片20220531210519.png
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd1 As WinForm.TreeNode In e.Node.AllNodes '清除子节点的选中标记
nd1.Checked = e.Node.Checked
Next
If e.Node.Checked = False Then
Dim pd As WinForm.TreeNode = e.Node.ParentNode
If pd IsNot Nothing Then
pd.Checked = False
End If
Else
Dim pd As WinForm.TreeNode = e.Node.ParentNode
If pd IsNot Nothing Then
For Each nd2 As WinForm.TreeNode In pd.Nodes
nd2.Checked = True
Next
pd.Checked = True
End If
End If
我希望勾选所在子字节，父字节同步勾选，但子字节有一个没勾选的父字节都不被勾选，帮助里介绍的只做到勾选父字节时子字节同步勾选，反之亦然，取消子字节勾选，同步取消父字节勾选，没做到我问的效果，红色标注的代码做到了勾选子字节同步勾选父字节，但勾一个父字节都同步勾选了，这样不对，请教如何实现这一效果？
[此贴子已经被作者于2022/5/31 21:16:52编辑过]
加好友 
发短信
Post By：2022/5/31 21:15:00 [只看该作者]
