[求助]用checed这个属性的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]用checed这个属性的问题

共有8640人关注过本帖树形打印复制链接主题：[求助]用checed这个属性的问题

aloby

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：190 积分：1597 威望：0 精华：0 注册：2011/5/19 10:05:00

[求助]用checed这个属性的问题 发帖心情

Post By：2012/8/29 10:33:00 [只看该作者]

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

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

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

请问什么毛病?

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/8/29 10:48:00 [只看该作者]

说明条件不成立，也就是checked = false

aloby

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：190 积分：1597 威望：0 精华：0 注册：2011/5/19 10:05:00

Post By：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()

是遍历的,不是单个的,所以有的条件是成立的,有的不成立