以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  判断相等无效？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26808)
--  作者：慧明和谐
--  发布时间：2012/12/14 16:38:00
--  判断相等无效？

_UserGroup是全局变量  窗口中调用  用if判断用户分组，怎么if下面的语句不执行呀  进不去 大虾们看看代码有什么问题哦

If _UserGroup="人事" Then

语句

End If
--  作者：sunsenfeng
--  发布时间：2012/12/14 16:47:00
--  
说不准是变量读取的值带空格什么的吧
--  作者：lin_hailun
--  发布时间：2012/12/14 16:51:00
--  
 输入代码，看看弹出什么。

msgbox("aaa" & _UserGroup & "aaa")
--  作者：慧明和谐
--  发布时间：2012/12/14 16:54:00
--  

用对话框弹出来 值是对的  用If判断就判断不出来 不知道怎么回事  不用特殊字符开头就能判断出来
--  作者：慧明和谐
--  发布时间：2012/12/14 17:07:00
--  

改了名称也不行了 晕死了  大虾们来求解啊

MessageBox.Show(S_UserGroup)
If S_UserGroup="人事" Or S_UserGroup="行政" Or S_UserGroup="开发者" Or S_UserGroup="管理员"   Then
Forms("员工档案").Controls("Button5").Enabled=True \'添加
Forms("员工档案").Controls("Button4").Enabled=True \'编辑
Forms("员工档案").Controls("Button7").Enabled=True \'删除
Forms("员工档案").Controls("Button6").Enabled=True \'保存
Else
Forms("员工档案").Controls("Button5").Enabled=False \'添加
Forms("员工档案").Controls("Button4").Enabled=False \'编辑
Forms("员工档案").Controls("Button7").Enabled=False \'删除
Forms("员工档案").Controls("Button6").Enabled=False \'保存
End If

 

值是对的  就是进不去if里面
--  作者：lin_hailun
--  发布时间：2012/12/14 17:13:00
--  
 你再弹出看看是不是确实是对的。贴出弹出的内容。

msgbox(_UserGroup & "   " & _UserGroup.Count)

---------------------

 应该写 msgbox(_UserGroup & "   " & _UserGroup.Length)
[此贴子已经被作者于2012-12-14 18:49:33编辑过]
--  作者：慧明和谐
--  发布时间：2012/12/14 17:21:00
--  

我的全局变量_UserGroup 是string 类型的  用.Count报错了

我自己用msgbox(_UserGroup) 弹出来是“人事”
--  作者：慧明和谐
--  发布时间：2012/12/14 17:24:00
--  
大哥 我QQ2388381101  可以的话 加一下啊  郁闷死我了
--  作者：狐狸爸爸
--  发布时间：2012/12/14 17:32:00
--  
800014337
--  作者：慧明和谐
--  发布时间：2012/12/14 18:38:00
--  
好了  是数据库表里面的值后面有空格  全局变量获取后 没截取有效值