我建立了一个用户组：业务员

还建立了一个表：客户资料

客户资料的：所属顾问就是业务员名字

我想实现的功能是 业务员登陆这个客户资料表 只显示属于此业务员的行（也就说只显示列“所属顾问”数据为此登陆业务员名的行）

我用如下代码无法实现 亲大家帮忙看看 不胜感激 例子在附件 麻烦大神帮忙看下！！

我在表事件beforeload 添加了如下代码

If User.Group = "业务员" \'
    Dim fl As String = "[所属顾问] = \'" & User.Name & "\'"
    If e.DataTable.LoadFilter = "" Then
        e.DataTable.LoadFilter = fl
    ElseIf e.DataTable.LoadFilter.IndexOf(fl) < 0 Then \'

        e.DataTable.LoadFilter = e.DataTable.Loadfilter & " And " & fl
    End If
End If

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

点击浏览该文件:管理项目3.rar

PS 谢谢下面回复我的朋友 最后我是在帮助里面找到的 用

LoadUserSetting

这个事件和代码

If User.Group = "765" Then
DataTables("订单").LoadFilter = ""
Else
DataTables("客户资料").LoadFilter = "所属顾问 = \'" & User.Name & "\'"
End If
DataTables("客户资料").Load()

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

点击浏览该文件:管理项目933.table

BeforeLoad只是打开项目后重新加载数据才执行，别忘记初始加载数据执行的是这个事件：

http://www.foxtable.com/help/topics/0669.htm

以下是引用有点甜在2013-7-5 19:57:00的发言：

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

点击浏览该文件:管理项目933.table

BeforeLoad只是打开项目后重新加载数据才执行，别忘记初始加载数据执行的是这个事件：

http://www.foxtable.com/help/topics/0669.htm

 

用这个事件可以实现我说的功能 不过只能以用户名来过滤 我用管理员登陆也看不到所有业务员的资料，我想用用户组来过滤 怎么实现呢，就是如果登陆用户是“业务员”组的用户 那就就只加载这个业务员下面的客户资料 如果登陆的用户是管理员则加载所有客户资料

盼回复！

建议你将《权限管理》这一章看完，从这一节开始：

http://www.foxtable.com/help/topics/2253.htm

里头有你需要的全部内容。

当然《动态加载》也是必须看的：

http://www.foxtable.com/help/topics/1268.htm

例如，你要管理员可开发者看懂所有数据，代码改为：

If e.DataTableName = "客户资料" Then
    If e.User.Type = UserTypeEnum.User Then \'如果是普通用户
        e.Filter = "[所属顾问] = \'" & e.User.Name & "\'"
    End If
End If

你要根据用户分组，那么e.User.Name改为e.User.Group