现在需要给“业务室”用户组下所有用户设置权限,只能看到落实人包括“业务室”的行。代码如下:
If User.group = "办公室" Then
DataTables("工作安排").LoadFilter = "" '如果用户组是办公室,则加载所有行。
Else
If User.group = "业务室" Then
DataTables("工作安排").LoadFilter = "落实人 like '业务室'" '如果用户组是业务室,则加载包含业务室的行。
Else
DataTables("工作安排").LoadFilter = "落实人 like '%" & User.Name & "%'" '其他用户加载登录者的相关行。
End If
DataTables("工作安排").Load()
End If
问题:使用业务室下的用户登录后,只显示 业务室 的行,而由业务室与其他人合作落实的行,却不显示,求解。
另外,这代码是否可以继续优化。