以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按钮也是灰的,不能用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24542)

--  作者:aygp
--  发布时间:2012/10/16 22:07:00
--  按钮也是灰的,不能用

在窗口的AfterLoad事件中设置以下代码后,管理员登陆,按钮也是灰的,不能用。

 

 

If User.Group <> "管理员" Then
    e.Form.Controls("Button1").Enabled = False
    e.Form.Controls("Button3").Enabled = False
End
If


--  作者:czy
--  发布时间:2012/10/16 22:20:00
--  

那就改成

 

e.Form.Controls("Button1").Enabled = (User.Group <> "管理员")
e.Form.Controls("Button3").Enabled = (User.Group <> "管理员")


--  作者:aygp
--  发布时间:2012/10/16 23:10:00
--  

改成以下代码后,任何用户登陆,按钮都不灰了,不被管理员控制了。还需要改一下

 

 If User.Group <> "管理员" Then
    e.Form.Controls("Button1").Enabled = (User.Group <> "管理员")
    e.Form.Controls("Button3").Enabled = (User.Group <> "管理员")

End If


--  作者:hawkerwin
--  发布时间:2012/10/16 23:23:00
--  

直接改成

e.Form.Controls("Button1").Enabled = (User.Group <> "管理员")
e.Form.Controls("Button3").Enabled = (User.Group <> "管理员")
不要If User.Group <> "管理员" Then

End If

<!--post.asp##回帖帖子循环部分-->


--  作者:czy
--  发布时间:2012/10/17 9:15:00
--  
以下是引用aygp在2012-10-16 23:10:00的发言:

改成以下代码后,任何用户登陆,按钮都不灰了,不被管理员控制了。还需要改一下

 

 If User.Group <> "管理员" Then
    e.Form.Controls("Button1").Enabled = (User.Group <> "管理员")
    e.Form.Controls("Button3").Enabled = (User.Group <> "管理员")

End If

 

呵呵,手误。

不要判断,直接

 

e.Form.Controls("Button1").Enabled = (User.Group = "管理员")
e.Form.Controls("Button3").Enabled = (User.Group = "管理员")


--  作者:lihe60
--  发布时间:2012/10/17 9:42:00
--  

e.Form.Controls("Button1").ReadOnly = BooleanEnum.True

这个动态合成如何写?