老师，
AfterEditNode 代码如下，但是不起作用，求老师给看看
Dim dt As DataTable = DataTables("角色")
Dim dr As DataRow
Dim dr2 As DataRow
If e.NewText = "" Then
e.Cancel = True
Else
dr = dt.Find("角色 = '" & e.NewText & "'") '判断新输入的分组是否存在
If dr IsNot Nothing '如果存在,取消输入.
MessageBox.Show("此角色已经存在!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.cancel = True
ElseIf e.Node.Nodes.Count>0 Then
MessageBox.Show("存在下级,请删除下级后再修改!")
e.Cancel = True
Else
For Each dr In dt.Select("角色 like '\" & e.NewText & "%' Or 角色 Like '%" & e.NewText & "\' or 角色 Like '%\" & e.NewText & "\%' or 角色 ='" & e.NewText & "'" )'重命名分组
dr("角色") =dr("角色") .Replace(e.NewText,"")
Next
e.Node.Name = e.NewText '使得节点的名称和标题保持一致.
End If
End If
Dim Values() As String
Dim Values2 As New List(Of String)
For Each dr3 As DataRow In DataTables("角色").DataRows
Values=dr3("角色").split("\")
For Index As Integer = 0 To Values.Length - 1
If Values2.Contains(Values(Index))=False Then
Values2.Insert(0,Values(Index))
Else
Values2.Remove(Values(Index))
End If
Next
Next
For Each Values3 As String In Values2
Dim drs As List(Of DataRow) = DataTables("权限").Select("角色 like '\" & Values3 & "%' Or 角色 Like '%" & Values3 & "\' or 角色 Like '%\" & Values3 & "\%' or 角色 ='" & Values3 & "'" )'重命名分组
For n As Integer = 0 To drs.Count - 1
If drs(n)("角色").Contains("Values3")
drs(n)("角色") = drs(n)("角色").Replace(Values3,"")
End If
Next
Next
加好友 
发短信
Post By：2015/5/22 10:25:00 [显示全部帖子]
