授权是按照帮助文档摘抄的，下不下载都可以，我想了很久，实在写不出来。

我想要实现：

1、比如王麻子离职了，临时员工资料表里就读取不到王麻子了，但是张三还在授权表的用户里，怎么在另外的模块提交离职的时候，自动删除授权表用户里面的王麻子。

2、我想要复制某个人的权限，添加给另外的人，请问代码该怎么写？

3、假设有个测试的帐号，测试的帐号权限为大众权限，大家都可以用，某个员工从重要岗位计财部调岗了，怎么把这个员工的权限清除后，赋值成测试的大众权限？

不是我懒，是实在写不出来。。。。求各位大神帮下忙

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:授权.rar

1、

Dim name As String = "王麻子"
For Each r As Row In Tables("授权").Rows
    Dim str As String = r("用户")
    str = System.Text.RegularExpressions.Regex.Replace(str, ",*?" & name & ",*?", "")
    r("用户") = str
Next

2、

Dim name1 As String = "张三"
Dim name2 As String = "李四"
For Each dr As DataRow In DataTables("授权").Select("用户 like \'%" & name1 & "%\'")
    Dim str As String = dr("用户")
    If str.Contains(name2) = False Then
        dr("用户") = str & "," & name2
    End If
Next

3、

看2楼、3楼的方法

 或者写成这样

Dim name As String = "王麻子"
For Each r As Row In Tables("授权").Rows
    Dim str As String = ""
    For Each s As String In r("用户").split(",")
        If name <> s Then
            str = s & ","
        End If
       
    Next
    r("用户") = str.trim(",")
Next