主题：代码有误

For Each dr As DataRow In DataTables("角色").DataRows
    Dim str As String = ""
    For Each s As String In dr("角色").split("\")
        If s = e.Node.Text Then
            str &= e.NewText & "\"
        Else
            str &= s & "\"
        End If
    Next
    dr("角色") = str.trim("\")
Next

 不明你想做什么啊？看6楼代码。

代码拷贝一份就行

 

For Each dr As DataRow In DataTables("角色").DataRows
    Dim str As String = ""
    For Each s As String In dr("角色").split("\")
        If s = e.Node.Text Then
            str &= e.NewText & "\"
        Else
            str &= s & "\"
        End If
    Next
    dr("角色") = str.trim("\")
Next

For Each dr As DataRow In DataTables("权限").DataRows
    Dim str As String = ""
    For Each s As String In dr("角色").split("\")
        If s = e.Node.Text Then
            str &= e.NewText & "\"
        Else
            str &= s & "\"
        End If
    Next
    dr("角色") = str.trim("\")
Next

 你先理解10楼写的代码。

dr = dt.Find("角色 = '" & e.NewText & "' Or 角色 Like '" & e.newText & "/%' Or 角色 Like '%/" & e.newText & "/%' Or 角色 Like '%/" & e.newText & "'") '判断新输入的分组是否存在

 什么意思。