- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=71709)
-- 发布时间：2015/7/16 15:33:00
-- [求助]
老师 我想实现只有销售部才能填写如下列 代码如下
If e.Col.Name = "khmc","khlh","khms","bz","xuhao","cpmc" Then
If User.Group <> "销售部" Then
e.Cancel = True
End If
End If
运行有如下报错 请问该如何修改
此主题相关图片如下：搜狗截图20150716152902.jpg
-- 发布时间：2015/7/16 15:35:00
--
select case e.Col.Name
case "khmc","khlh","khms","bz","xuhao","cpmc"
If User.Group <> "销售部" Then
e.Cancel = True
End If
end select
[此贴子已经被作者于2015/7/16 15:36:09编辑过]
-- 发布时间：2015/7/16 16:35:00
--
你好，如下代码编写之后，系统管理员组的用户，也不能用（灰色的）。 我们使用的是外部 用户 数据源。
If User.Group <> "系统管理员" Then
RibbonTabs("用户管理").Enabled = False
Else
RibbonTabs("用户管理").Enabled = True
End If
-- 发布时间：2015/7/16 16:36:00
--
加入代码 msgbox(user.Group) 看弹出什么
-- 发布时间：2015/7/16 16:42:00
--
您好，加上之后图片如下：
此主题相关图片如下：2.jpg
-- 发布时间：2015/7/16 16:44:00
--
那试试 msgbox(_UserGroup)
-- 发布时间：2015/7/16 16:46:00
--
还是一样。
-- 发布时间：2015/7/16 16:49:00
--
呃，那你没有设置分组，或者没有给分组_UserGroup赋值啊。
登陆窗口的代码发出来看看。
-- 发布时间：2015/7/16 16:51:00
--
- 这个写在Afteropenproject中 是否有冲突？
Forms("用户登录").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
\'后续初始化代码
If User.Type <> UserTypeEnum.Developer
TableCaptionVisible = False
End If
-- 发布时间：2015/7/16 16:52:00
--
要写在 Forms("用户登录").Open() 的后面。