主题：请教录入人员加载权限问题。

 请教大师，设计了一个表试用的时候发现一个问题。当时设计的表登陆用户为个人，且每个人分属不同的组，即每个分组里面只有一个人。所以引用的类似如下代码。个人登陆时只加载当前用户录入的行。

If User.Name = "张经理" Then
    DataTables("订单").LoadFilter = ""
Else
    DataTables("订单").LoadFilter = "业务员 = '" & User.Name & "'"
End If
DataTables("订单").Load()

现在发现，有一个组里需要两个人同时录入。但不想以分组的名称登陆。想达到个人用户登陆时加载所在组的所有数据，但只能编辑当前用户的数据，组里其他人录入的数据只能查看不能编辑。这样代码如何修改？