| 以文本方式查看主题 - 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
|