Foxtable(狐表)用户栏目专家坐堂 → [求助]LoadUserSetting增加开发者


  共有12778人关注过本帖树形打印复制链接

主题:[求助]LoadUserSetting增加开发者

帅哥哟,离线,有人找我吗?
易服
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:787 积分:6349 威望:0 精华:0 注册:2008/9/1 8:26:00
[求助]LoadUserSetting增加开发者  发帖心情 Post By:2009/11/13 16:51:00 [只看该作者]

If User.Type = UserTypeEnum.Administrator AndAlso User.Type = UserTypeEnum.开发者 Then
    Tables("人员").Visible = True
    Tables("单位").Visible = True
    Tables("林种").Visible = True
    Tables("树种").Visible = True
Else
    Tables("人员").Visible = False
    Tables("单位").Visible = False
    Tables("林种").Visible = False
    Tables("树种").Visible = False
End If

黑体部分是正确的想加入彩色部分不知怎么加?

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/13 16:54:00 [只看该作者]

If User.Type = UserTypeEnum.Administrator OElse User.Type = UserTypeEnum.开发者 Then

AndAlso 是与的意思,一个用户怎么可能同时是开发者和管理员?

 回到顶部
帅哥哟,离线,有人找我吗?
易服
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:787 积分:6349 威望:0 精华:0 注册:2008/9/1 8:26:00
  发帖心情 Post By:2009/11/13 17:06:00 [只看该作者]

"开发者"不能直接用要换成英文

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/13 17:10:00 [只看该作者]

我复制你的,正确的:

If User.Type = UserTypeEnum.Administrator OElse User.Type = UserTypeEnum.Developer Then

其实帮助可以查的。

User

UserInfo类型表示用户,它包括三个属性,用于返回用户信息:

  • Name
    返回用户名
     
  • Group
    返回用户分组
     
  • Default
    逻辑型,如果是默认用户,则返回True,否则返回False
     
  • Type
    返回用户级别(类型),UserTypeEnum型枚举,包括以下可选值:

    Developer: 开发者
    Administrator:管理员
    User:普通用户。

 回到顶部