- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请问目录树授权,为什么选择节点后,无法将所选节点记录保存下来呢? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56560)
-- 发布时间：2014/9/9 9:01:00
-- [求助]请问目录树授权,为什么选择节点后,无法将所选节点记录保存下来呢?
如题,在设置目录树授权时,所选的节点无法记录保存!
此主题相关图片如下：jdfw.gif
-- 发布时间：2014/9/9 9:03:00
--
要点击确定才能保存.
-- 发布时间：2014/9/9 9:04:00
--
是每点选一个节点就要确定吗?
-- 发布时间：2014/9/9 9:06:00
--
点了"确定"还是没有.
-- 发布时间：2014/9/9 9:12: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
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 = DataTables("授权表").Find("分组 = \'" & nd1.Name & "\' And 权限 Is Null")
Else
dr = DataTables("授权表").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
-- 发布时间：2014/9/9 9:13:00
--
确定按钮的代码发出来.
-- 发布时间：2014/9/9 9:13:00
--
或者上例子.
-- 发布时间：2014/9/9 9:13:00
--
DataTables("授权表").Save()
e.Form.Close()
-- 发布时间：2014/9/9 9:15:00
--
5楼代码是写在哪里的? 上个例子看看吧
-- 发布时间：2014/9/9 9:20:00
--
例子:
