主题：[求助]

老师  我想实现只有销售部才能填写如下列  代码如下
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

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

 

此主题相关图片如下：2.jpg

还是一样。

 

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

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

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

老师，如下：

 

 

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name F-rom {Users}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0

老师，如下代码帮我看看，执行结果一直执行的是 Else 的情形。

 

Dim DataKW As String
cmd1.Connection-Name = "User"
cmd1.CommandText = "Select [Password] f-rom {Users} where [Name] = '" & UserName & "'"
DataKW = cmd1.ExecuteScalar()
If DataKW = NewKW Then
  cmd.CommandText = "U-pdate {Users} Set [Password] = '" & NewKW & "' Where [Name]= '" & UserName & "'"
  cmd.ExecuteNonQuery()
  Else
  MessageBox.Show("请输入正确的密码!","提示!")
  Forms("密码修改").Close()
End If

 12楼问题已OK 。感谢！

 

13楼请帮忙，求助！

Dim DataKW As String
cmd1.Connection-Name = "User"
cmd1.CommandText = "Select [Password] f-rom {Users} where [Name] = '" & UserName & "'"
DataKW = cmd1.ExecuteScalar()
If DataKW = OldKW Then
  cmd.CommandText = "U-pdate {Users} Set [Password] = '" & NewKW & "' Where [Name]= '" & UserName & "'"
  cmd.ExecuteNonQuery()
  Else
  MessageBox.Show("请输入正确的密码!","提示!")
  Forms("密码修改").Close()
End If

 

 

已修改OK ，见上面紫色部分。谢谢老师。

 

老师还有问题求助。

 

我们想实现如下目的权限控制，如图

 

此主题相关图片如下：111.jpg

 

 

 

我们也写了代码，如下：      但就是达不到效果，请指教。

 

If _UserGroup = "销售部" Then
    e.Cancel = True
      ElseIf _UserGroup <> "生产部"
            Select Case e.Col.Name
                 Case "pz","pzrq"
                    e.Cancel = True  
       End Select 
       If _UserGroup <> "综合部" Then
          Select Case e.Col.Name
          Case "zhb_lh","zhb_bom","jiean"
            e.Cancel = True
        End Select
    End If
End If