以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]用了自定义登陆系统后，可视化权限失去作用!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18291)
--  作者：狐狸爸爸
--  发布时间：2012/4/9 7:29:00
--  

因为自定义权限管理不会触发LoadUserSetting 事件。

看帮助要全面，看看这里的最后一行：

 

http://www.foxtable.com/help/topics/2048.htm

 

 
--  作者：狐狸爸爸
--  发布时间：2012/4/10 9:03:00
--  

cmd.CommandText = "Select * From {Users} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)

 

改为：

 

cmd.CommandText = "Select * From {Users} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader

If dt.DataRows.Count = 0 Then

   Return

End if
dr = dt.DataRows(0)
--  作者：狐狸爸爸
--  发布时间：2012/4/11 7:54:00
--  

你定义了两个DataRow

Dim dr As DataRow

For Each dr As DataRow In DataTables("授权表").Select("用户组 = \'" & _UserGroup & "\'" )

 

将最后一个改为：

 

For Each dr In DataTables("授权表").Select("用户组 = \'" & _UserGroup & "\'" )