共8 条记录, 每页显示 10 条, 页签: [1]

标题：根据不同用户登录显示不同用户数据

1楼

老有所乐 发表于：2009/11/12 23:01:00

在进货表的窗口的Table中，显示进货表数据。请教如何根据不同用户登录显示不同用户数据，即用户业务员A登录，显示业务员列含有业务员A的所有行数据，用户业务员B登录，显示业务员列含有业务员B的所有行数据。谢谢！
管理员密码：888
业务员A 密码：111
业务员B 密码：222

下载信息 [文件大小：下载次数： ]
点击浏览该文件:进销存2.table

[此贴子已经被作者于2009-11-12 23:03:38编辑过]

2楼

czy 发表于：2009/11/12 23:56:00

直接在AfterLoad事件中设置行吗？

Tables("进货表").Filter = "业务员 = '" & User.Name & "'"

3楼

老有所乐 发表于：2009/11/13 11:00:00

谢谢C班主

4楼

老有所乐 发表于：2009/11/13 16:39:00

如果是管理员登录，窗口和“进货表”都没有数据，应该如何才会有数据。谢谢！

[此贴子已经被作者于2009-11-13 16:39:30编辑过]

5楼

狐狸爸爸 发表于：2009/11/13 16:45:00

If e.User.Type = UserTypeEnum.User Then
Tables("进货表").Filter = "业务员 = '" & User.Name & "'"
End If

6楼

老有所乐 发表于：2009/11/13 17:12:00

谢谢贺老师！

7楼

wqc360 发表于：2009/11/13 17:22:00

我怎么做起来提示错误，If e.User.Type = UserTypeEnum.User Then
是在AfterLoad事件中设置吗，我也刚好需要，要不楼主做好的共享一下，谢谢了

8楼

狐狸爸爸 发表于：2009/11/13 17:28:00

这样，就没错：

If User.Type = UserTypeEnum.User Then
Tables("进货表").Filter = "业务员 = '" & User.Name & "'"
End If

共8 条记录, 每页显示 10 条, 页签: [1]