主题：[求助] 团队权限管理

参考代码

If User.Group = "销售" Then
    DataTables("表A").LoadFilter = "姓名 = '" & User.name & "'"
ElseIf User.Group = "团队长" Then
    Dim names As String = DataTables("人员").GetComboListString("姓名", "团队 = '" & user.name & "'")
    DataTables("表A").LoadFilter = "姓名 in ('" & names.Replace("|", "','") & "')" 
End If
DataTables("表A").Load