Private Sub DisplayMenu()什么意思，求助！ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → Private Sub DisplayMenu()什么意思，求助！

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

只看楼主

winter_cry

等　级：新手上路
帖　子：3
专家分：0
注　册：2012-10-31
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：7

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

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

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

搜索更多相关主题的帖子: 操作员　角色　 False　

2012-12-08 17:32

winter_cry

等　级：新手上路
帖　子：3
专家分：0
注　册：2012-10-31

第 2 楼

得分:0

各路神仙帮忙看看呀

2012-12-08 17:33

Artless

等　级：贵宾
威　望：103
帖　子：4211
专家分：28888
注　册：2009-4-8

第 3 楼

得分:10

以下是引用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("角色") <> "普通操作员"