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