主题：关于DataColChanging的设置

批准取消的代码

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

终审取消的代码

If User.roles = "boss" Then
    Tables("个案申请").Current("终审") = Nothing
    Tables("个案申请").Current("终审日期") = Nothing
    Tables("个案申请").Current("终审意见") = Nothing
    Tables("个案申请").Current.Save()
Else
    MessageBox.show("你无取消终审权限!")
End If

BeforeDeleteDataRow

设置了一段代码：

If e.DataRow.Isnull("审核") = False Then
    msgbox("工作流开始,不能删除")
    e.cancel = True
End If

在PrepareEdit

设置了一段代码

e.Cancel = True

在DataColChanging

设置了一段代码：

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