主题：关于DataColChanging的设置

  代码这样写，取消按钮，就把日期设置成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

贴出你取消按钮的代码。

看14楼。

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

批意见之前，可以先点取消。

你改一下代码吧，用下面这一段，测试ok的

Select Case e.DataCol.name
    Case "审核意见", "审核日期", "审核"
        If user.roles = "行销部主管" Then
            If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing AndAlso e.DataRow.IsNull("审核") = False  Then
                msgbox("已审核")
                e.cancel = True
            Else If e.DataRow.IsNull("批准日期") = False OrElse e.DataRow.IsNull("终审意见") = False Then
                msgbox("已提交,不能再修改")
                e.cancel = True
            End If
        Else
            e.Cancel = True
        End If
    Case "批准意见" , "批准日期", "批准"
        If User.roles = "行销部经理" Then
            If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing AndAlso e.DataRow.IsNull("批准") = False  Then
                msgbox("已批准")
                e.Cancel = True
            Else If e.DataRow.IsNull("终审日期") = False Then
                msgbox("已提交")
                e.cancel = True
            End If
        Else
            e.Cancel = True
        End If
    Case "终审意见", "终审日期", "终审"
        If User.roles = "boss" Then
            If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing AndAlso e.DataRow.IsNull("终审") = False Then
                msgbox("已终审")
                e.cancel = True
            End If
        Else
            e.Cancel = True
        End If
    Case "个案申请","日期","编号","文件名称","分区","内容"
        Select Case User.Group
            Case "东北区", "西北区", "华北区", "华东区", "东南区", "华南区", "西南区"
                If e.DataRow.IsNull("审核日期") = False Then
                    e.Cancel = True
                End If
            Case Else
                e.Cancel = True
        End Select
End Select

不会有这个问题，你重新启动项目看看。

改一下，afterload和timertick事件

If Tables("个案申请").current IsNot Nothing Then
    'e.Form.Controls("TextBox1").text = Tables("个案申请").current("内容")

End If

-------------------------------

If Tables("个案申请").current IsNot Nothing Then
    'e.Form.Controls("Webbrowser").text = Tables("个案申请").current("内容")

End If

 呃，好吧，红色的地方，加一个判断。

If e.form.ExistControl("WebBrowser1") Then
    If e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames.Count > 0 Then
        If Vars("编辑器校验")=0 Then
            e.form.controls("WebBrowser1").Enabled = Tables("个案申请").current.IsNull("审核")
            e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = Tables("个案申请").current("内容")        
            Vars("编辑器校验")=1
        Else If Vars("编辑器校验")=2 Then
            e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = ""
            Vars("编辑器校验")=1
        End If
        e.Form.Controls("TextBox1").text = e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml
    End If
End If