此主题相关图片如下：qq图片20131226154709.jpg

如图，有两个目录树，我想在勾选（取消勾选）右边的目录树时，做下判断：

  如果是给分组授权，左边是否选中了一个分组，否则取消操作，即选择框保持原来的状态不变；

  如果是给职位授权，左边是否选中了一个职位，否则取消操作，即选择框保持原来的状态不变；

  如果是给个人授权，左边是否选中一个操作者，否则取消操作，即选择框保持原来的状态不变；

我在enter和afterchecknode事件中写的，没效果，该怎么改呢

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1") ’给部门授权
Dim Rbforzw As WinForm.RadioButton=e.Form.controls("Rbforzw") ’给职位授权
Dim Rbforglz As WinForm.RadioButton=e.Form.controls("Rbforglz") ’给操作者授权

Dim nd1 As WinForm.TreeNode = trv1.SelectedNode

If rbforzw.checked Then ‘给职位授权
    If nd1 Is Nothing OrElse nd1.level=0 Then ’左则树是否选了一个职位
        MessageBox.show("请选择一个需要授权的职位!")
        Exit Sub  ‘这里要怎么滚回操作，使勾选或取消勾选动作无效
    End If
End If

If rbforglz.checked Then 给操作者授权
    If nd1 Is Nothing OrElse nd1.level<2 Then 左则树是否选了一个操作者
        MessageBox.show("请选择一个需要授权的管理者!")
        Exit Sub ‘这里要怎么滚回操作，使勾选或取消勾选动作无效
    End If
End If

不行哦，我要的效果是勾选右边的节点时，如果左边的选的节点不符合条件时，滚回操作，即阻止程序勾选或取消勾选。

关键是只有afterchecknode事件，没有beforchecknode事件，就是没有改变复选框状态前执行的事件

没看明白

自己解决了，加了一条代码：e.Node.Checked=iif(e.node.checked,False,True)

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1") ’给部门授权
Dim Rbforzw As WinForm.RadioButton=e.Form.controls("Rbforzw") ’给职位授权
Dim Rbforglz As WinForm.RadioButton=e.Form.controls("Rbforglz") ’给操作者授权

Dim nd1 As WinForm.TreeNode = trv1.SelectedNode

If rbforzw.checked Then ‘给职位授权
    If nd1 Is Nothing OrElse nd1.level=0 Then ’左则树是否选了一个职位
        MessageBox.show("请选择一个需要授权的职位!")
       e.Node.Checked=iif(e.node.checked,False,True) 

End If
End If

If rbforglz.checked Then 给操作者授权
    If nd1 Is Nothing OrElse nd1.level<2 Then 左则树是否选了一个操作者
        MessageBox.show("请选择一个需要授权的管理者!")
        e.Node.Checked=iif(e.node.checked,False,True)  

   End If
End If