- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 咨询个筛选方面的问题。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126924)
-- 发布时间：2018/10/30 22:47:00
-- 咨询个筛选方面的问题。
初学者一个，在制作多用户环境下的筛选时，要求每个用户只能在自己的权限内进行内容的筛选，写入代码后，提示缺少表达式，大佬帮我看看哪里出错了。
Dim Filter As String
With e.Form.Controls("组别")
If .Value IsNot Nothing Then
Filter = Filter & "组别 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("性别")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "性别 = \'" & .Value & "\'"
End If
End With
If Filter > "" Then
Select Case user.name
Case "田万水"
Tables("木溪乡人口数据").Filter = Filter
Case "桐油坡"
Tables("木溪乡人口数据").Filter = "[村名] = \'桐油坡村\' And \'" & Filter & "\'"
End Select
End If
此主题相关图片如下：微信图片_20181030224917.png
-- 发布时间：2018/10/30 23:05:00
--
Tables("木溪乡人口数据").Filter = "[村名] = \'桐油坡村\' And " & Filter
-- 发布时间：2018/10/30 23:09:00
--
谢谢大佬，问题已解决
-- 发布时间：2018/10/30 23:44:00
--
再向大佬咨询个事，刚给做好的管理软件想把系统菜单去掉，点了菜单，显示要增加三个以上的菜单才有效，可我一个不想要啊，没办法，我把系统自带的菜单导入进来了，现在出问题了，因为我把系统菜单的组件全删除了，现在打开项目就提示“不存在common”功能区，关了又弹出来，根本没法进入项目中了，怎么办怎么办？如果我不想要在上方显示任何菜单，该怎样才能达到效果？
-- 发布时间：2018/10/30 23:48:00
--
我把事件代码全删除光了，写的窗口里的功能也全没了。
[此贴子已经被作者于2018/10/30 23:50:17编辑过]
-- 发布时间：2018/10/30 23:55:00
--
备份的一个管理系统，也是导入了系统菜单，现在去不掉系统菜单了，还手贱点了一下快捷菜单，现在直接打开项目就弹出“不存在Cut的快捷命令”，要在foxtable里才能打开，还是那句话，怎样才能把导入的系统菜单去掉，如果不想顶部的菜单了，怎么解决？
-- 发布时间：2018/10/30 23:57:00
--
重要的是窗口里设计的功能全部失效，按钮什么的全没反应了。
-- 发布时间：2018/11/1 10:13:00
--
以下是引用tianwanshui在2018/10/30 23:57:00的发言：
重要的是窗口里设计的功能全部失效，按钮什么的全没反应了。
重要的是窗口里设计的功能全部失效，按钮什么的全没反应了。
重新导入系统菜单模板，然后隐藏菜单，即可。