以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  内部表到外部表有些操作失灵  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153284)

--  作者:a272797388
--  发布时间:2020/8/6 8:30:00
--  内部表到外部表有些操作失灵
这些命令在内部表好使, 可以在外部表里,每个账户下都不让输入数据了, 内部表到外部表后需要改命令吗?
If User.Name = "第一中学" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'第一中学\'"
ElseIf User.Name = "第二中学" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'第二中学\'"
ElseIf User.Name = "香兰镇中学" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'香兰镇中学\'"
ElseIf User.Name = "太平川学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'太平川学校\'"
ElseIf User.Name = "黑金河学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'黑金河学校\'"
ElseIf User.Name = "永发乡学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'永发乡学校\'"
ElseIf User.Name = "鹤立中学" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'鹤立中学\'"
ElseIf User.Name = "鹤立林业局中学" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'鹤立林业局中学\'"
ElseIf User.Name = "吉祥乡学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'吉祥乡学校\'"
ElseIf User.Name = "振兴乡学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'振兴乡学校\'"
ElseIf User.Name = "朝鲜族学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'朝鲜族学校\'"
ElseIf User.Name = "汤原农场学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'汤原农场学校\'"
ElseIf User.Name = "梧桐河农场学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'梧桐河农场学校\'"
ElseIf User.Name = "第一小学" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'第一小学\'"
ElseIf User.Name = "实验小学" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'实验小学\'"
ElseIf User.Name = "第三小学" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'第三小学\'"
ElseIf User.Name = "前卫学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'前卫学校\'"
ElseIf User.Name = "香兰镇中心学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'香兰镇中心学校\'"
ElseIf User.Name = "竹帘镇中心学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'竹帘镇中心学校\'"
ElseIf User.Name = "胜利乡中心学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'胜利乡中心学校\'"
ElseIf User.Name = "裕德学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'裕德学校\'"
ElseIf User.Name = "鹤立镇中心学校" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'鹤立镇中心学校\'"
ElseIf User.Name = "鹤立林业局小学" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'鹤立林业局小学\'"
ElseIf User.Name = "高级中学" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'高级中学\'"
ElseIf User.Name = "第三中学" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'第三中学\'"
ElseIf User.Name = "管理员" Then
    DataTables("监考教师库人员登记表").LoadFilter = ""
ElseIf User.Name = "开发者" Then
    DataTables("监考教师库人员登记表").LoadFilter = ""
Else
DataTables("监考教师库人员登记表").LoadFilter = "[_Identify] Is Null"
End If
DataTables("监考教师库人员登记表").Load()

--  作者:cd_tdh
--  发布时间:2020/8/6 9:17:00
--  
If User.Name = "第一中学" Then
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'第一中学\'"
    DataTables("监考教师库人员登记表").Load
ElseIf User.Name = "第二中学" Then
..............
 
如果你是外部用户管理,在用户管理表中增加一列学校,用全局变量栏判断,加载条件直接写 _UsreGrou = "学校",方便多了。
 
[此贴子已经被作者于2020/8/6 9:20:54编辑过]

--  作者:有点蓝
--  发布时间:2020/8/6 9:33:00
--  
能不能编辑和1楼代码没有什么关系,检查其他地方

另外代码可以优化一下
select case User.Name
case "开发者","管理员"
    DataTables("监考教师库人员登记表").LoadFilter = ""
case else
    DataTables("监考教师库人员登记表").LoadFilter = "学校=\'“ & User.Name & ”\'"
end select 
DataTables("监考教师库人员登记表").Load