老师，目录树选定后，可以达到筛选，但是赋值“角色”不成功，会是哪里的问题呢？
If Vars("Tree") = True Then
Dim tr1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim tr2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim nd1 As WinForm.TreeNode = tr1.SelectedNode
Dim nd2 As WinForm.TreeNode = tr2.SelectedNode
Dim Vals() As String = ND2.FullPath.Split("\")
Dim Filter As String
Select Case nd2.Level
Case 0
DataTables("权限管理").LoadFilter= "功能主模块 = '" & Vals(0) & "'"
DataTables("权限管理").Load
Case 1
DataTables("权限管理").Loadfilter= "功能主模块 = '" & Vals(0) & "' AND 一级模块 = '" & Vals(1) & "'"
DataTables("权限管理").Load
Case 2
DataTables("权限管理").Loadfilter= "功能主模块 = '" & Vals(0) & "' AND 一级模块 = '" & Vals(1) & "' AND 二级模块 = '" & Vals(2) & "'"
DataTables("权限管理").Load
Case 3
DataTables("权限管理").Loadfilter= "功能主模块 = '" & Vals(0) & "' AND 一级模块 = '" & Vals(1) & "' AND 二级模块 = '" & Vals(2) & "' AND 权限 = '" & Vals(3) & "'"
DataTables("权限管理").Load
End Select
Dim dr As DataRow
If dr IsNot Nothing Then
If nd2.Checked = True Then
dr("角色") = nd1.Text + "\" + dr("角色")
Else
dr("角色") = dr("角色").Replace(nd1.Text,"")
End If
dr("角色") = dr("角色").Trim("\")
DataTables("权限管理").save
End If
For Each nd As WinForm.TreeNode In e.Node.AllNodes
nd.Checked = e.Node.Checked
Next
End If
加好友 
发短信
Post By：2015/4/28 14:14:00 [只看该作者]
