以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 帮我再加一个代码,谢谢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152842) |
-- 作者:13796361423 -- 发布时间:2020/7/23 15:18:00 -- 帮我再加一个代码,谢谢 有一个“成绩表”, 有一列是班级,想要一班的班任只能看到一班的成绩,二班的班任只能看到二班的成绩 , 我想再加一个,三班的班任能看到所有的成绩? LoadUserSetting If User.Name = "班任1" Then DataTables("成绩表").LoadFilter = "班级=‘一班’" ElseIf User.Name = "班任2" Then DataTables("成绩表").LoadFilter = "班级=‘二班’" else DataTables("成绩表").LoadFilter = “[_Identify] Is Null” end if DataTables("成绩表").Load() 请问如如何再加一条,三班的班任能看到所有的成绩
|
-- 作者:有点蓝 -- 发布时间:2020/7/23 15:22:00 -- If User.Name = "班任1" Then DataTables("成绩表").LoadFilter = "班级=‘一班’" ElseIf User.Name = "班任2" Then DataTables("成绩表").LoadFilter = "班级=‘二班’" ElseIf User.Name = "班任3" Then DataTables("成绩表").LoadFilter = "" else DataTables("成绩表").LoadFilter = “[_Identify] Is Null” end if DataTables("成绩表").Load() |