以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]用checed这个属性的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=22974)
--  作者：aloby
--  发布时间：2012/8/29 10:33:00
--  [求助]用checed这个属性的问题

If nd.checked=True Then
       tnd.Nodes.Add(nd.name,nd.text)
   End If

 

判断一个树如复选上,就在另一个树上加节点.但加不上去

去掉这个判断,那就全加上了

请问什么毛病?
--  作者：狐狸爸爸
--  发布时间：2012/8/29 10:48:00
--  
说明条件不成立，也就是checked = false
--  作者：aloby
--  发布时间：2012/8/29 11:43:00
--  

e.Form.Controls("TreeView1").BuildTree("操作员", "名称")
Dim tr As WinForm.TreeView = Forms("授权").Controls("TreeView1")
Dim tnd As WinForm.TreeNode = tr.SelectedNode
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
tr.SelectedNode.Nodes.Clear() \'清除所有子节点

For Each nd As WinForm.TreeNode In e.Form.Controls("TreeView1").allnodes \'遍历本窗口选中节点下的所有子节点
   If nd.checked=True Then
       tnd.Nodes.Add(nd.name,nd.text)
   End If
Next

e.form.Close()

 

是遍历的,不是单个的,所以有的条件是成立的,有的不成立
--  作者：狐狸爸爸
--  发布时间：2012/8/29 12:04:00
--  

代码是机械的，是不会撒谎的。
--  作者：blackzhu
--  发布时间：2012/8/29 13:46:00
--  
你这个代码 不对的吧  没有不断遍历退出?
--  作者：客人
--  发布时间：2012/8/29 14:35:00
--  

checked是treenode的属性之一，帮助里是这样说的：


Checked


逻辑型，是否选中目录节点的复选框。


 


只这几个字，我的确不能理解狐爸的深意。
--  作者：aloby
--  发布时间：2012/8/29 15:21:00
--  
奇怪,我的发言怎么成了客人了?