- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于TreeView的求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72741)
-- 发布时间：2015/8/5 14:32:00
-- [求助]关于TreeView的求助
此主题相关图片如下：qq截图20150805142303.jpg
AfterCheckNode
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim nd1 As WinForm.TreeNode = trv1.SelectedNode
Dim dr As DataRow
If e.Node.ParentNode IsNot Nothing Then \'取消父节点的选中标记,因为选中子节点,就不要选中父节点了
e.Node.ParentNode.Checked = False
End If
For Each cnd As WinForm.TreeNode In e.Node.Nodes \'取消子节点的选中标记,因为选中父节点,就不要选中子节点了
cnd.Checked = False
Next
If nd1.Level = 0 Then
dr = _dt事务经办人员指派.Find("分组 = \'" & nd1.Name & "\' And 事务 Is Null")
Else
dr = _dt事务经办人员指派.Find("分组 = \'" & nd1.ParentNode.Name & "\' And 事务 = \'" & nd1.Name & "\'")
End If
If dr IsNot Nothing Then
Dim nms As String
For Each nd2 As WinForm.TreeNode In trv2.AllNodes
If nd2.Checked Then
nms = nms & "," & nd2.Name
End If
Next
If nms > "" Then
dr("经办人员") = nms.Trim(",")
Else
dr("经办人员") = Nothing
End If
End If
在后台中有一表，结构如下：
此主题相关图片如下：qq截图20150805142530.jpg
我现在求助的是，假定我在“冷轧作业区”上打个勾，下面的子节点不打勾，在后台的结果如下图：
此主题相关图片如下：qq截图20150805142755.jpg
而我现在希望的是在父结点上打了勾后，下面的子结点全部也勾上，这样后台的表上就会有这些员工的名字，方便我在其他表上引用，
但同时，“冷轧作业区”不能出现在后台表上，这个根本不是员工的名字。
谢谢！
-- 发布时间：2015/8/5 14:44:00
--
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim nd1 As WinForm.TreeNode = trv1.SelectedNode
Dim dr As DataRow
For Each cnd As WinForm.TreeNode In e.Node.AllNodes \'取消子节点的选中标记,因为选中父节点,就不要选中子节点了
cnd.Checked = e.node.Checked
Next
If nd1.Level = 0 Then
dr = _dt事务经办人员指派.Find("分组 = \'" & nd1.Name & "\' And 事务 Is Null")
Else
dr = _dt事务经办人员指派.Find("分组 = \'" & nd1.ParentNode.Name & "\' And 事务 = \'" & nd1.Name & "\'")
End If
If dr IsNot Nothing Then
Dim nms As String
For Each nd2 As WinForm.TreeNode In trv2.AllNodes
If nd2.Checked AndAlso nd2.Level > 0 Then
nms = nms & "," & nd2.Name
End If
Next
If nms > "" Then
dr("经办人员") = nms.Trim(",")
Else
dr("经办人员") = Nothing
End If
End If
-- 发布时间：2015/8/5 14:57:00
--
代码可以正常执行了，但有个小改进，老师能不能搞下：
-- 发布时间：2015/8/5 15:10:00
--
加上下面这段全选的代码
For Each nd As WinForm.TreeNode In e.node.AllNodes
nd.Checked = e.Node.Checked
Next
If e.Node.Checked = False Then
Dim pnd As WinForm.TreeNode = e.Node.ParentNode
Do While pnd IsNot Nothing
pnd.Checked = False
pnd = pnd.ParentNode
Loop
Else
Dim pnd As WinForm.TreeNode = e.Node.ParentNode
Dim flag As Boolean = True
Do While pnd IsNot Nothing
If flag = True
For Each nd As WinForm.TreeNode In pnd.Nodes
If nd.Checked = False Then
flag = False
Exit For
End If
Next
End If
pnd.Checked = flag
pnd = pnd.ParentNode
Loop
End If
-- 发布时间：2015/8/6 10:51:00
--
这段代码是加上后起到的作用是子节点全选中时，父节点自动选中，但窗口重新打开后，虽然子节点是全选的，但父节点又处于未选中状态。
此主题相关图片如下：qq截图20150806105103.jpg
-- 发布时间：2015/8/6 10:55:00
--
afterLoad事件和左边的目录树的事件要改。
上传实例。
-- 发布时间：2015/8/6 11:14:00
--
项目内容太多了，实在不方便上传，下面是左边的TreeView代码，应该就在上面改的，老师帮我看看：
-- 发布时间：2015/8/6 12:17:00
--
For Each nd As WinForm.TreeNode In trv2.AllNodes
nd.Checked = nms.Contains(nd.Name)
Next
For Each nd As WinForm.TreeNode In trv2.Nodes
Dim flag As Boolean = True
For Each cnd As winform.treeNode In nd.Nodes
If cnd.Checked = False Then
flag = False
End If
Next
nd = flag
Next
-- 发布时间：2015/8/6 12:47:00
--
想在老师的代码下增加个当子节点有部分选中时，父节点名旁边会有个"☆"，这样用户就能知道这个父节点下面有选中的内容，但改来改去就是不会，下面的代码会让所有的父节点上全带上"☆"
-- 发布时间：2015/8/6 14:05:00
--
自己搞定了，把代码分享一下：