主题：关于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

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

 

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

 

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

 

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

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

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

那段代码不行啊，老师；现在无论用哪个用户登陆，比如，现在文件已经通过了审核，然后我用审核人登陆取消审核，无法取消；
此主题相关图片如下：360截图20140423104459984.jpg

能否帮我在例子上面修改，这样才能测试出来，这个时间，已经搞了我3天晚上，每天晚上11点了~~我简直要奔溃了

审核的取消的代码：

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