想在导航中办入一个判断,是党员就才显示目录,不是党员出提示不能查看,为什么不行呢?
With tpb.Pages("党建工作").Links
If User.IsRole("党员") Then '判断
.Add("党组织文件", "党组织文件")
.Add("组织制度", "组织制度")
.Add("组织生活", "组织生活")
.Add("组织建设", "组织建设")
.Add("班子建设", "班子建设")
.Add("思想政治工作", "思想政治工作")
.Add("专题活动", "专题活动")
.Add("意识形态工作", "意识形态工作")
.Add("民族团结工作", "民族团结工作")
.Add("宣传工作", "宣传工作")
.Add("党员信息", "党员信息")
Else
MessageBox.Show("本模块只有党员可以查看!")
End If
End With