Private Sub DisplayMenu()什么意思，求助！

winter_cry 发布于 2012-12-08 17:32， 737 次点击

Private Sub DisplayMenu()
If Adodc1.Recordset.Fields("角色") = "普通操作员" Then
   glyszfrm.Enabled = False
   lbglfrm.Enabled = False
   mmxgfrm.czysz.Enabled = False
   xtcshfrm.xtcsh.Enabled = False

End If
想进行权限设置，但把代码写上去后没提示错误页眉执行该命令，不懂啊。

7 回复

winter_cry2012-12-08 17:33

各路神仙帮忙看看呀

Artless2012-12-08 17:37

以下是引用winter_cry在2012-12-8 17:32:33的发言：

Private Sub DisplayMenu()
If Adodc1.Recordset.Fields("角色") = "普通操作员" Then
   glyszfrm.Enabled = False
   lbglfrm.Enabled = False
   mmxgfrm.czysz.Enabled = False
   xtcshfrm.xtcsh.Enabled = False

End If
想进行权限设置，但把代码写上去后没提示错误页眉执行该命令，不懂啊。

Adodc1.Recordset.Fields("角色") <> "普通操作员"

winter_cry2012-12-08 17:44

回复 3楼 Artless

不明白 Private Sub DisplayMenu() 是什么意思呀

Artless2012-12-08 19:04

以下是引用winter_cry在2012-12-8 17:44:03的发言：

不明白 Private Sub DisplayMenu() 是什么意思呀

找本书看看吧

xieshengsen2012-12-09 10:58

好像是“设计等级访问权限，不符合的隐藏”。

墨竹花2012-12-15 17:45

是不是自定义函数啊？？

wink50002012-12-30 09:13

自定义了一个过程，不过没有看到end sub！