[求助]隐藏导航去任务集 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问下下面这段代码那儿有问题，导航下面一级的任务集隐藏不了

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

For Each dr1 As DataRow In DataTables("用户_授权").Select("用户 not Like '*"& _username &"*' and 子节点 is not null")

dh.Pages(dh1.Name).Links(dr1("子节点")).Visible = False

[此贴子已经被作者于2018/9/2 11:01:04编辑过]

主题：[求助]隐藏导航去任务集