Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口文本框权限


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

主题:[求助]窗口文本框权限

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/16 18:36:00 [显示全部帖子]

 If e.DataCol.Name = "第一列" Then

 

改成

 

 If e.DataCol.Name = "第一列" OrElse e.datacol.name = "第二列" OrElse e.DataCol.Name = "第三列" Then


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/17 8:56:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "第一列","第二列"
        If User.Group <> "经理" Then
            If e.OldValue = "已完成" Then
                If e.NewValue <> "已完成" Then
                    MessageBox.Show("经理已经确定此任务:已完成,如有问题请沟通经理", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    e.Cancel = True '则取消更改
                    Return
                End If
            Else
                If e.OldValue <> "已完成" Then
                    If e.NewValue = "已完成" Then
                        MessageBox.Show("经理才可以确定此任务:已完成,可以录入:已完成了或已完成+完成日期  最好再截图通知经理已完成", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        e.Cancel = True '则取消更改
                    End If
                    Return
                End If
            End If
        End If
End Select

 回到顶部