主题：关于DataColChanging的设置

DataColChanging

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

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

贴出你取消按钮的代码。

 

看14楼。

 

然后，要注意：取消是要按照步骤的，必须先取消批准，才能取消审核的。

审核的取消的代码：

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 = "行销部经理" 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