主题：[求助]

老师  我想实现只有销售部才能填写如下列  代码如下
If e.Col.Name = "khmc","khlh","khms","bz","xuhao","cpmc" Then
    If User.Group <> "销售部" Then
        e.Cancel = True
    End If
End If

运行有如下报错  请问该如何修改

此主题相关图片如下：搜狗截图20150716152902.jpg

你好，如下代码编写之后，系统管理员组的用户，也不能用（灰色的）。  我们使用的是外部  用户  数据源。

If User.Group <> "系统管理员" Then
    RibbonTabs("用户管理").Enabled = False
Else
    RibbonTabs("用户管理").Enabled = True
End If

您好，加上之后图片如下：

还是一样。

呃，那你没有设置分组，或者没有给分组_UserGroup赋值啊。

登陆窗口的代码发出来看看。

1. 这个写在Afteropenproject中  是否有冲突？

Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
'后续初始化代码

If User.Type <> UserTypeEnum.Developer
    TableCaptionVisible = False
End If