内部表到外部表有些操作失灵 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这些命令在内部表好使，可以在外部表里，每个账户下都不让输入数据了，内部表到外部表后需要改命令吗？

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()

主题：内部表到外部表有些操作失灵