主题：关于DataColChanging的设置

 我输了...拷贝代码进去。

afterload代码是

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
'web.OfficeToolBar = True
web.Address = ProjectPath & "kindeditor\e.html"
If Tables("个案申请").current IsNot Nothing Then
    e.Form.Controls("TextBox1").text = Tables("个案申请").current("内容")

End If
e.Form.TimerEnabled = True
e.Form.TimerInterval = 500

timeclick代码是

If e.form.ExistControl("WebBrowser1") Then
    If e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames.Count > 0 Then
        If Vars("编辑器校验")=0 Then

            If Tables("个案申请").current IsNot Nothing Then
                e.form.controls("WebBrowser1").Enabled = Tables("个案申请").current.IsNull("审核")
                e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = Tables("个案申请").current("内容")         

            End If
            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

 回复48楼，代码是没有错的。

 新建，应该是填报人才能新建的，你切换到填报人再新增。

回复51楼，新建按钮加入代码。

With Tables("个案申请")
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        Tables("个案申请").AddNew()
        Vars("编辑器校验")=0
    End If
End With

 回复54楼，编写BeforeDeleteDataRow事件

 If dr.RowState = DataRowState.Added Then

     e.Cancel = True

 End If

 写错了

 If e.Datarow.RowState <> DataRowState.Added Then

     e.Cancel = True

 End If

 呃，开始工作流是什么时候？不是新增的行保存以后，就开始工作流了么？

If e.Datarow.RowState <> DataRowState.Added Then

     e.Cancel = True

 End If

那就从角色上判断。

Select Case User.Group
    Case "东北区", "西北区", "华北区", "华东区", "东南区", "华南区", "西南区"
        If e.DataRow.IsNull("审核日期") = False Then
            e.Cancel = True
        End If
    Case Else
        e.Cancel = True
End Select

 批准的打回：把批准的内容清空，然后把审核的内容清空；

 终审的打回：把终审的内容清空，然后清空前面的......