以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  帮我再加一个代码,谢谢  (http://foxtable.com/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()