- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 怎么统计复选框已选中的子节点数量？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=47022)
-- 发布时间：2014/3/3 14:32:00
-- 怎么统计复选框已选中的子节点数量？
怎么统计复选框已选中的子节点数量？？？
-- 发布时间：2014/3/3 14:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目207.rar |
-- 发布时间：2014/3/3 14:45:00
--
再改一下代码：
Dim pd As WinForm.TreeNode = e.node.ParentNode
Do While pd IsNot Nothing
Dim cnt As Integer
For Each cd As WinForm.TreeNode In pd.Nodes
If cd.Checked Then
cnt = cnt +1
End If
Next
If cnt > 0 Then
pd.Checked = True
Else
pd.Checked = False
End If
pd = pd.ParentNode
Loop
-- 发布时间：2014/3/3 14:55:00
--
您好，打不开此项目，提示“文件版本过高，无法正常打开，请升级您的Foxtable”，我试着检查更新，但是是最新的，怎么解决
-- 发布时间：2014/3/3 14:57:00
--
呵呵，忘记了，我用的是2014正式版，明天可以下载。
你复制我三楼的代码到aftercheckednode事件即可。
-- 发布时间：2014/3/3 15:08:00
--
还要再加一点：
Dim pd As WinForm.TreeNode = e.node.ParentNode
Do While pd IsNot Nothing
Dim cnt As Integer
For Each cd As WinForm.TreeNode In pd.Nodes
If cd.Checked Then
cnt = cnt +1
End If
Next
If cnt > 0 Then
pd.Checked = True
Else
pd.Checked = False
End If
pd = pd.ParentNode
Loop
For Each nd As WinForm.TreeNode In e.Node.AllNodes
nd.Checked = e.Node.Checked
Next
-- 发布时间：2014/3/3 15:09:00
--
-- 发布时间：2014/3/3 15:12:00
--
代码成功运行，谢谢狐狸爸爸。。。。