If _UserName <> "Admin"
e.Form.Controls("NavBar1").NavPages(0).Visible = False
e.Form.Controls("NavBar1").NavPages(3).Visible = False
End If
老师，我用上面这个具体的用户测试写在afterload里，可以起到效果，下面的代码，我从用户权限表里取值的用户，起不到权限控制的作用，请老师看一下，哪里出问题了
''0,系统维护;1,系统管理;2,客户管理;3,财务管理;4,业务管理
Dim users As List(Of String)
users = DataTables("用户权限表").SQLGetValues("用户", "权限类别 = '系统维护'")
For Each user As String In users
If user IsNot Nothing Then
e.Form.Controls("NavBar1").NavPages(0).Visible = True
Else
e.Form.Controls("NavBar1").NavPages(0).Visible = True
End If
Next
Dim user1s As List(Of String)
user1s = DataTables("用户权限表").SQLGetValues("用户", "权限类别 = '业务管理'")
For Each user1 As String In user1s
If user1 IsNot Nothing Then
e.Form.Controls("NavBar1").NavPages(4).Visible = True
Else
e.Form.Controls("NavBar1").NavPages(4).Visible = True
End If
Next
Dim user2s As List(Of String)
user2s = DataTables("用户权限表").SQLGetValues("用户", "权限分组 = '员工信息'")
For Each user2 As String In user2s
If user2 IsNot Nothing Then
e.Form.Controls("员工信息").Visible = True
Else
e.Form.Controls("员工信息").Visible = False
End If
Next
Dim user3s As List(Of String)
user3s = DataTables("用户权限表").SQLGetValues("用户", "权限分组 = '往来单位'")
For Each user3 As String In user3s
If user3 IsNot Nothing Then
e.Form.Controls("往来单位").Visible = True
Else
e.Form.Controls("往来单位").Visible = False
End If
Next
加好友 
发短信
Post By：2020/7/23 21:43:00 [只看该作者]
