我的OA，有四个权限，分别是审核、批准、终审、裁决；

我想在批准设置一个按钮，叫打回，按下，即可取消审核内容，直接回到原始内容

我想在终审设置一个按钮，叫打回，按下，即可取消审核、批准内容，直接回到原始内容

我想在裁决设置一个按钮，叫打回，按下，即可取消审核、批准、终审内容，直接回到原始内容

这样的代码如何设置呢？？

 把你 取消审核、取消批准、取消终审、取消裁决 的代码拷贝进去就行了。

 不要问一些很简单的问题了，你自己要知道处理一下。

 但是，你在角色权限那里，限制了各个用户修改列的内容。

 所以你还需要处理一下这个问题：点击打回按钮的时候，允许此角色修改各列的内容。具体是：设置一个变量vars("xxx")="允许"，然后在datacolchanging中，如果是允许，就不要用权限限制了。

 我估计你又是不会写代码的。 你以后问问题，请上传可操作的例子，可好？写文字猜代码好难啊

好的

老师，例子已经在用了，所以不能上，因为用的是外部数据。。。。。。

你看看我修改的打回代码分别是：

If User.roles = "行销部主管" Then
    If Tables("个案申请").Current.IsNull("终审") Then
        Tables("个案申请").Current("批准") = Nothing
        Tables("个案申请").Current("批准日期") = Nothing
        Tables("个案申请").Current("批准意见") = Nothing
        Tables("个案申请").Current("审核") = Nothing
        Tables("个案申请").Current("审核日期") = Nothing
        Tables("个案申请").Current("审核意见") = Nothing
        Tables("个案申请").Current.Save()
    Else
        MessageBox.Show("此行已被终审,不能打回!")
    End If
Else
    MessageBox.show("你无打回权限!")
End If

If User.roles = "行销部经理" Then
   If Tables("个案申请").Current.IsNull("裁决") Then
    Tables("个案申请").Current("终审") = Nothing
    Tables("个案申请").Current("终审日期") = Nothing
    Tables("个案申请").Current("终审意见") = Nothing
        Tables("个案申请").Current("批准") = Nothing
        Tables("个案申请").Current("批准日期") = Nothing
        Tables("个案申请").Current("批准意见") = Nothing
        Tables("个案申请").Current("审核") = Nothing
        Tables("个案申请").Current("审核日期") = Nothing
        Tables("个案申请").Current("审核意见") = Nothing
    Tables("个案申请").Current.Save()
Else
    MessageBox.Show("此行已被裁决,不能打回修改!")
End If
Else
    MessageBox.show("你无打回修改权限!")
End If

If User.roles = "boss" Then
    Tables("个案申请").Current("裁决") = Nothing
    Tables("个案申请").Current("裁决日期") = Nothing
    Tables("个案申请").Current("裁决意见") = Nothing
    Tables("个案申请").Current("终审") = Nothing
    Tables("个案申请").Current("终审日期") = Nothing
    Tables("个案申请").Current("终审意见") = Nothing
    Tables("个案申请").Current("批准") = Nothing
    Tables("个案申请").Current("批准日期") = Nothing
    Tables("个案申请").Current("批准意见") = Nothing
    Tables("个案申请").Current("审核") = Nothing
    Tables("个案申请").Current("审核日期") = Nothing
    Tables("个案申请").Current("审核意见") = Nothing
    Tables("个案申请").Current.Save()
Else
    MessageBox.show("你无打回修改权限!")
End If

现在就是你说的问题，设计好了，根本无法打回？？

现在datacolchanging中的代码是：

Select Case e.DataCol.name
    Case "审核意见", "审核日期", "审核"
        If user.roles = "个案拆分" Then
            If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing AndAlso e.DataRow.IsNull("审核") = False  Then
                msgbox("已审核")
                e.cancel = True
            Else If e.DataRow.IsNull("批准日期") = False OrElse e.DataRow.IsNull("终审意见") = False Then
                msgbox("已提交,不能再修改")
                e.cancel = True
            End If
        Else
            e.Cancel = True
        End If
    Case "批准意见" , "批准日期", "批准"
        If User.roles = "行销部主管" Then
            If e.DataRow.IsNull("审核") Then
                msgbox("没审核")
                e.Cancel = True
            Else If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing AndAlso e.DataRow.IsNull("批准") = False  Then
                msgbox("已批准")
                e.Cancel = True
            Else If e.DataRow.IsNull("终审日期") = False Then
                msgbox("已提交")
                e.cancel = True
            End If
        Else
            e.Cancel = True
        End If
    Case "终审意见", "终审日期", "终审"
        If User.roles = "行销部经理" Then
            If e.DataRow.IsNull("批准") Then
                msgbox("没批准")
                e.Cancel = True
            Else If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing AndAlso e.DataRow.IsNull("终审") = False Then
                msgbox("已终审")
                e.cancel = True
            End If
        Else
            e.Cancel = True
        End If
    Case "裁决意见", "裁决日期", "裁决"
        If User.roles = "BOSS" Then
            If e.DataRow.IsNull("终审") Then
                msgbox("没终审")
                e.Cancel = True
            Else If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing AndAlso e.DataRow.IsNull("裁决") = False Then
                msgbox("已裁决")
                e.cancel = True
            End If
        Else
            e.Cancel = True
        End If
    Case "个案申请","日期","编号","文件名称","分区","内容"
        Select Case User.Group
            Case "东北区", "西北区", "华北区", "华东区", "东南区", "华南区", "西南区"
                If e.DataRow.IsNull("审核日期") = False Then
                    e.Cancel = True
                End If
            Case Else
                e.Cancel = True
        End Select
End Select

老师我上传附件了，请帮我看看解决一下，以下几个问题：

1.

我的项目中有两个模块：

个案申请：分别由表、主窗口、查询窗口（模拟）

行销文件：分别由表、主窗口、查询窗口（模拟）

我在用的过程中，发现这两个模块之间互相冲突，问题如下：

如果我登陆项目首先打开个案申请，登陆个案模块的主窗口，打开查询窗口后，然后点击其中的行，主窗口是能逐条显示内容；然后我切换到行销文件模块的主窗口，打开查询窗口，然后点击其中的行，主窗口不能逐条显示或经常出现有时显示，有时不显示的情况；

如果我登录项目首先打开行销文件的话，刚刚上面的问题，就会调换过来，所以我感肯定上面两个项目间有冲突，请老师给点建议。。。。

2.个案审批模块“已”字，为什么不是绿色

3.问题：就是不同用户登陆新建文件后都会生成编号，但是这个编号为什么不是唯一的。。。

比如：

2014-0501，是西南区的

2014-0501，是华北区的

这样就不能在全局上用编号识别，我的目的是，无论哪个用户登陆，他们生成的编号都是不会重复的。。

4.

我的OA，有四个权限，分别是审核、批准、终审、裁决；

我想在批准设置一个按钮，叫打回，按下，即可取消审核内容，直接回到原始内容

我想在终审设置一个按钮，叫打回，按下，即可取消审核、批准内容，直接回到原始内容

我想在裁决设置一个按钮，叫打回，按下，即可取消审核、批准、终审内容，直接回到原始内容

这样的代码如何设置呢？？

5.就是隐藏列，重新打开项目后又出现的问题~~~

已经上传附件，请查看~~谢谢~~

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

以上附件漏了相关插件，请已这个附件为准，谢谢~~

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1(含插件）.rar