| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]隐藏导航去任务集 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124212) |
| -- 作者：紫色幽魂 -- 发布时间：2018/9/2 11:01:00 -- [求助]隐藏导航去任务集 请问下下面这段代码那儿有问题，导航下面一级的任务集隐藏不了 Dim dh As WinForm.TopicBar = Forms("导航栏").Controls("TopicBar1") For Each dh1 As WinForm.TopicPage In dh.Pages For Each dh2 As WinForm.TopicLink In dh1.Links dh.Pages(dh1.Name).Visible = True For Each dr As DataRow In DataTables("用户_授权").Select("用户 not Like \'*"& _username &"*\' and 子节点 is null") dh.Pages(dr("父节点")).Visible = False Next Next For Each dr1 As DataRow In DataTables("用户_授权").Select("用户 not Like \'*"& _username &"*\' and 子节点 is not null") dh.Pages(dh1.Name).Links(dr1("子节点")).Visible = False Next Next
[此贴子已经被作者于2018/9/2 11:01:04编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/9/2 11:17:00 --
For Each dr As DataRow In DataTables("用户_授权").Select("用户 not Like \'*"& _username &"*\' and 子节点 is null") For Each dr1 As DataRow In DataTables("用户_授权").Select("用户 not Like \'*"& _username &"*\' and 子节点 is not null")
|
| -- 作者：紫色幽魂 -- 发布时间：2018/9/2 13:59:00 -- 回复：（有点甜）Dim dh As WinForm.TopicBar = Forms... 加入调试，这段还是没有反应，没有弹出任何窗口 For Each dr1 As DataRow In DataTables("用户_授权").Select("用户 not Like \'*"& _username &"*\' and 子节点 is not null") msgbox(dr1("父节点")) dh.Pages(dr1("父节点")).Links(dr1("子节点")).Visible = False Next |
| -- 作者：紫色幽魂 -- 发布时间：2018/9/2 15:54:00 -- 回复：（有点甜）Dim dh As WinForm.TopicBar = Forms... 加入调试，这段还是没有反应，没有弹出任何窗口 For Each dr1 As DataRow In DataTables("用户_授权").Select("用户 not Like \'*"& _username &"*\' and 子节点 is not null") msgbox(dr1("父节点")) dh.Pages(dr1("父节点")).Links(dr1("子节点")).Visible = False Next |
| -- 作者：有点甜 -- 发布时间：2018/9/2 16:14:00 -- 那就是你设置的条件又问题
执行代码，看筛选的数据是否正确
Tables("用户_授权").filter = "用户 not Like \'*"& _username &"*\' and 子节点 is not null"
注意，用户为空的数据不会被筛选的 |
| -- 作者：紫色幽魂 -- 发布时间：2018/9/2 16:32:00 -- 回复：（有点甜）那就是你设置的条件又问题 ... 好的，就是因为有数据为空，没有算进去，所以一直没有得到我想要的结果 |
| -- 作者：有点甜 -- 发布时间：2018/9/2 20:11:00 -- 以下是引用紫色幽魂在2018/9/2 16:32:00的发言：
好的，就是因为有数据为空，没有算进去，所以一直没有得到我想要的结果
那改成
Tables("用户_授权").filter = "(用户 is null or 用户 not Like \'*"& _username &"*\') and 子节点 is not null" |