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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → BeforeListDetails的问题

共有4104人关注过本帖树形打印复制链接主题：BeforeListDetails的问题

dengk03

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

等级：童狐帖子：205 积分：1969 威望：0 精华：0 注册：2017/8/17 12:59:00

BeforeListDetails的问题 发帖心情

Post By：2020/4/26 9:27:00 [只看该作者]

For Each Info() As String In e.Infos
        If Info(0) <> _username AndAlso Info(2) = "D" Then '隐藏归档目录
            e.Remove(Info)
        End If

我希望每个人都只能浏览自己姓名的文件夹下的全部内容，包括可以在自己姓名文件夹下再新建文件夹。但是上面的代码会导致自己名下新建的文件夹自己看不到。该如何实现我的需求呢？

有点蓝

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

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

Post By：2020/4/26 10:46:00 [只看该作者]

[此贴子已经被作者于2020/4/26 10:51:55编辑过]

有点蓝

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

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

Post By：2020/4/26 10:57:00 [只看该作者]

CurFolder可以返回完整路径，这样判断一下

If e.CurFolder.Contains("/" & _username & "/") = false then 如果上级目录是_username这个名称的就不需要判断子目录了

For Each Info() As String In e.Infos
        If Info(0) <> _username AndAlso Info(2) = "D" Then '隐藏归档目录
            e.Remove(Info)
        End If

end if

主题：BeforeListDetails的问题