Dim tpb As WinForm.TopicBar = e.Form.Controls("菜单")
For Each page As WinForm.TopicPage In tpb.Pages
page.Visible = False
Next
For Each dr As DataRow In DataTables("授权表").Select("用户 = '" & _UserGroup & "'" )
If dr.IsNull("列名") Then
'tpb.Pages(dr("菜单")).Visible = Not dr("不可见")
tpb.Pages(dr("菜单")).Visible = True
End If
Next
If _UserGroup = "超级管理员" Then
For Each page2 As WinForm.TopicPage In tpb.Pages
page2.Visible = True
Next
End If
上面的代码是权限代码 打开时根据不同的权限显示不同页面。
报错内容如下。
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2021.5.12.1
错误所在事件:窗口,导航,AfterLoad
详细错误信息:
未设置对象变量或 With 块变量。