Foxtable(狐表) → 用户栏目 → 专家坐堂 → 内部表到外部表有些操作失灵


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

主题：内部表到外部表有些操作失灵
帅哥哟，离线，有人找我吗？
a272797388
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1884 威望：0 精华：0 注册：2020/1/23 16:11:00 		内部表到外部表有些操作失灵  发帖心情 Post By：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
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/8/6 9:33:00 [只看该作者]

能不能编辑和1楼代码没有什么关系，检查其他地方

另外代码可以优化一下
select case User.Name
case "开发者","管理员"
    DataTables("监考教师库人员登记表").LoadFilter = ""
case else
    DataTables("监考教师库人员登记表").LoadFilter = "学校='“ & User.Name & ”'"
end select 
DataTables("监考教师库人员登记表").Load
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询