主题：借用程版的完美的同步操作目录树的角色授权

For i As Integer = 0 To vals.lengrh - 1
        dr = DataTables("权限管理").Find(dals(i) & " = '" & vals(i) "'")
        If dr IsNot Nothing Then
            If  nd.Checked = True Then
                dr("角色") = nd3.Text + "\" + dr("角色")
            Else
                dr("角色") = dr("角色").Replace(nd3.Text,"")
            End If
            dr("角色") = dr("角色").Trim("\")
        End If
    Next
Next