使用全局代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 使用全局代码

共有3275人关注过本帖树形打印复制链接主题：使用全局代码

deliangzhaoe

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：364 积分：3491 威望：0 精华：0 注册：2012/7/24 7:15:00

使用全局代码 发帖心情

Post By：2020/3/13 7:06:00 [只看该作者]

全局代码：_usergroup

如果是管理员账户登录，窗口中的组合框初始值是空，如果是企业账户登录，窗口中的组合框初始值是用户分组（即企业名称）

请帮我改一下这段代码：

'除超级管理员和管理员,企业账户登录显示企业名称

If _UserGroup <> "超级管理员" AndAlso _UserGroup <> "管理员" Then

e.form.Controls("员工演练情况所在部门").value = " & _UserGroup & "

Else

e.form.Controls("员工演练情况所在部门").value = ""

End If

谢谢

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/13 8:51:00 [只看该作者]

e.form.Controls("员工演练情况所在部门").value = _UserGroup

自己比较一下它们的区别

msgbox(_UserGroup)

msgbox(" & _UserGroup & ")

主题：使用全局代码