以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据不同用户登录，加载相应部门信息  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92292)
--  作者：misamisali
--  发布时间：2016/10/31 11:46:00
--  根据不同用户登录，加载相应部门信息
如图1，点击“部门考勤” 按钮，打开考勤管理窗口，如何判断登陆者所属部门，并加载所属部门所有人的考勤信息。

\'代码这样写，可以吗？
图片点击可在新窗口打开查看此主题相关图片如下：表1.png
图片点击可在新窗口打开查看
加载登录用户所负责部门考勤数据
Dim Filter As String
Select Case User.Name
    Case "张三"
    DataTables("考勤统计表").Filter = "部门 = \'总经办\'"
   
DataTables("考勤统计表").Save() \'
--  作者：有点蓝
--  发布时间：2016/10/31 14:39:00
--  
窗口afterload事件

 DataTables("考勤统计表").LoadFilter = "部门 = \'" & user.group & "\'"
 DataTables("考勤统计表").Load