主题：关于DataColChanging的设置

If e.DataCol.Name = "审核意见" AndAlso e.DataRow.isnull("审核意见")=False Then '如果是已结帐列的内容变动
        msgbox("已批复意见,不能修改")
        e.cancel = True
End If

If e.DataCol.Name = "审核日期" AndAlso e.DataRow.isnull("审核日期")=False Then '如果是已结帐列的内容变动
        msgbox("已批复意见,不能修改")
        e.cancel = True
End If

If e.DataCol.Name = "批准意见" AndAlso e.DataRow.isnull("批准意见")=False Then '如果是已结帐列的内容变动
        msgbox("已批复意见,不能修改")
        e.cancel = True
End If

If e.DataCol.Name = "批准日期" AndAlso e.DataRow.isnull("批准日期")=False Then '如果是已结帐列的内容变动
        msgbox("已批复意见,不能修改")
        e.cancel = True
End If

If e.DataCol.Name = "终审意见" AndAlso e.DataRow.isnull("终审意见")=False Then '如果是已结帐列的内容变动
        msgbox("已批复意见,不能修改")
        e.cancel = True
End If

If e.DataCol.Name = "终审日期" AndAlso e.DataRow.isnull("终审日期")=False Then '如果是已结帐列的内容变动
        msgbox("已批复意见,不能修改")
        e.cancel = True
End If

请问老师，上面的代码是否有问题：

 

比如有三个层级：审核、批准、终审，终审取消了终审和终审意见后，批准的账户想取消是取消不了的，为什么这段代码哪里出错了，请老师给予意见。。

楼主的意思表达模糊，是不是后一个层级不取消，前一个层级不允许操作？

有三个流程，审核、批准、终审

 

文件一旦审批，则不能删除，除了，取消审核

 

一旦批准，审批就不能取消，而且审批内容不能修改，除非批准取消；

 

一旦终审，批准、审批就不能取消，而且批准及审批内容就不能修改，除非终审取消

 

 

请上例子.

请老师指点，现在这个东西我搞的有点乱了，不求救真的不行了，我想达到的效果就是

 

分为四种人登陆1.新建文件人、2.审核人、3.批准人、4终审人。

 

第一步：新建文件人登陆，通过双击个案申请表打开对应文件（是有文件内容显示的），按新建按钮，将全部清空窗口的所有数据，即形成完成空白页面，他们输入完成后，案保存。转入审核阶段；（此时新建文件人还是具有删除文件和修改文件的权利）

 

第二步：审核人登陆双击待审核文件，在审核框中审核意见、时间、审核通过后。转入批准阶段.(此时所有人都不能删除文件和修改文件，所有人都不能修改审核意见及审核时间、审核）。

 

 

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

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

第三步：终审人登陆双击待终审文件，在终审框中输入终审意见、时间、终审通过；文件形成，所有删除，修改及与审核、批准相关的东西都不能修改；

 

如何现在在终审已经完成，文件需要修改，则终审直接取消即可

 

如果现在是在批准阶段，批准已经完成，文件需要修改，则批准直接取消即可；

 

如何现在是在审核阶段，审核直接取消即可；

  代码这样写，取消按钮，就把日期设置成nothing，意见设置成nothing。自己调试一下。

 

Select Case e.DataCol.name
    Case "审核意见", "审核日期"
        If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing Then
            msgbox("已审核")
            e.cancel = True
        Else If e.DataRow.IsNull("批准日期") = False OrElse e.DataRow.IsNull("终审意见") Then
            msgbox("已提交,不能再修改")
            e.cancel = True
        End If
    Case "批准意见" , "批准日期"
        If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing Then
            msgbox("已批准")
            e.Cancel = True
        Else If e.DataRow.IsNull("终审日期") = False Then
            msgbox("已提交")
            e.cancel = True
        End If
    Case "终审意见", "终审日期"
        If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing Then
            msgbox("已终审")
            e.cancel = True
        End If
    Case Else
        If e.DataRow.IsNull("审核日期") = False OrElse e.DataRow.IsNull("批准日期") = False OrElse e.DataRow.IsNull("终审日期") = False Then
            msgbox("不能修改")
            e.cancel = True
        End If
End Select

请问以上的代码是放放在“审核取消”还是“批准取消”还是“终审取消”的按钮？？？放那个按钮？？

老师，能够将案例帮我改一下，这样我会比较懂一点