For Each nd As WinForm.TreeNode In e.Node.AllNodes
nd.Checked = e.Node.Checked
Next
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 nd1.Level = 0 Then
dr = DataTables("ck_sz_users").Find( "[_Identify]='" & trv1.SelectedNode.name & "'" )
End If
If dr IsNot Nothing Then
Dim nd As WinForm.TreeNode = e.node
If e.node.Checked = False
Do While nd.parentnode IsNot Nothing
nd = nd.parentnode
If nd.Nodes.Count > 0
For i As Integer = 0 To nd.Nodes.Count -1
If nd.Nodes(i).Checked = True
Exit Do
End If
If i = nd.Nodes.Count -1
nd.Checked = False
End If
Next
End If
Loop
Else
Do While nd.parentnode IsNot Nothing
nd = nd.parentnode
nd.Checked = True
Loop
End If
Dim nms As String
For Each nd2 As WinForm.TreeNode In trv2.AllNodes
If nd2.Checked Then
If nd2.Level = 0 Then
nms = nms & "," & nd2.Name
ElseIf nd2.Level = 1 Then
nms = nms & "," & nd2.ParentNode.Name & "\" & nd2.Name
ElseIf nd2.Level = 2 Then
nms = nms & "," & nd2.ParentNode.ParentNode.Name & "\" & nd2.ParentNode.Name & "\" & nd2.Name
ElseIf nd2.Level = 3 Then
nms = nms & "," & nd2.ParentNode.ParentNode.ParentNode.Name & "\" & nd2.ParentNode.ParentNode.Name & "\" & nd2.ParentNode.Name & "\" & nd2.Name
Else
End If
End If
Next
If nms > "" Then
'nms = EncryptText(nms,"1abc","2abc")
dr("uper") = EncryptText(nms .Trim(","),"1abc","2abc")
'dr("uper") = nms .Trim(",")
Else
dr("uper") = Nothing
End If
End If
加好友 
发短信
Post By：2015/12/6 16:57:00 [显示全部帖子]
