咨询个筛选方面的问题。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 咨询个筛选方面的问题。

共有2265人关注过本帖树形打印复制链接主题：咨询个筛选方面的问题。

tianwanshui

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：38 积分：339 威望：0 精华：0 注册：2018/9/29 8:26:00

咨询个筛选方面的问题。 发帖心情

Post By：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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/10/30 23:05:00 [只看该作者]

Tables("木溪乡人口数据").Filter = "[村名] = '桐油坡村' And " & Filter

tianwanshui

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：38 积分：339 威望：0 精华：0 注册：2018/9/29 8:26:00

Post By：2018/10/30 23:09:00 [只看该作者]

谢谢大佬，问题已解决

tianwanshui

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：38 积分：339 威望：0 精华：0 注册：2018/9/29 8:26:00

Post By：2018/10/30 23:44:00 [只看该作者]

再向大佬咨询个事，刚给做好的管理软件想把系统菜单去掉，点了菜单，显示要增加三个以上的菜单才有效，可我一个不想要啊，没办法，我把系统自带的菜单导入进来了，现在出问题了，因为我把系统菜单的组件全删除了，现在打开项目就提示“不存在common”功能区，关了又弹出来，根本没法进入项目中了，怎么办怎么办？如果我不想要在上方显示任何菜单，该怎样才能达到效果？