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

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

我不太明白你的设计思路，你为什么不用帮助现成的例子，根据权限来选择用户：

http://www.foxtable.com/help/topics/2405.htm

这种形式的授权，你要完全自己重新设计的话，不仅代码功底要了得，而且业务逻辑也必须非常清晰。

以后帮助再加一个根据用户选择权限的例子算了。