主题：[求助]求大神帮我写下授权代码

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