Foxtable(狐表)用户栏目专家坐堂 → 根据不同用户登录显示不同用户数据


  共有14583人关注过本帖树形打印复制链接

主题:根据不同用户登录显示不同用户数据

帅哥哟,离线,有人找我吗?
老有所乐
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
根据不同用户登录显示不同用户数据  发帖心情 Post By:2009/11/12 23:01:00 [只看该作者]

在进货表的窗口的Table中,显示进货表数据。请教如何根据不同用户登录显示不同用户数据,即用户业务员A登录,显示业务员列含有业务员A的所有行数据,用户业务员B登录,显示业务员列含有业务员B的所有行数据。谢谢!
管理员密码:888
业务员A 密码:111
业务员B 密码:222
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:进销存2.table

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

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2009/11/12 23:56:00 [只看该作者]

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
老有所乐
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
  发帖心情 Post By:2009/11/13 11:00:00 [只看该作者]

谢谢C班主

 回到顶部
帅哥哟,离线,有人找我吗?
老有所乐
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
  发帖心情 Post By:2009/11/13 16:39:00 [只看该作者]

如果是管理员登录,窗口和“进货表”都没有数据,应该如何才会有数据。谢谢!
[此贴子已经被作者于2009-11-13 16:39:30编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/13 16:45:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
老有所乐
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
  发帖心情 Post By:2009/11/13 17:12:00 [只看该作者]

谢谢贺老师!

 回到顶部
帅哥哟,离线,有人找我吗?
wqc360
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2009/11/13 17:22:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/13 17:28:00 [只看该作者]

这样,就没错:


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


 回到顶部