主题：新人求助 急急急 【已解决】

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

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

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

 

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

 

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

 

我在表事件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()