主题：审批记录

蓝老师：怎么保存图中的审批记录，退回后表单中的审批记录就会被清空。是再建一个表保存指定字段的内容,怎么在对应表单中调阅审批记录

2、添加一个审核表存储

蓝老师：我借鉴了论坛里您以前发的操作日志的实列。代码如下：

If e.DataTable.Name <> "数据操作日志" Then
    If e.DataRow.RowState = 2 Then
        Return
    Else
        Dim dr As DataRow = DataTables("数据操作日志").AddNew
        dr("ID") = e.DataRow("_Identify")
        dr("用户") = User.Name
        dr("涉及表") = e.DataTable.Name
        dr("涉及列") = e.DataCol.Name
        dr("涉及行") = e.DataRow("_Identify")
        dr("时间") = Date.Now
        dr("操作") = """" & e.OldValue &  """ 改成了 """ & e.NewValue & """"       
    End If
End If
是能记录流程的操作日志

此主题相关图片如下：qq截图20200325133650.png

然后我在审批界面加了一个进度调用“数据操作日志”表，作为申请审批的进度日志。

现在我只要表为“车辆维修申请单”中“审批意见1”、“审批结果1”、“审批意见2”、“审批结果2”····的变化记录

在调用的界面中再加入筛选 代码

Dim Filter As String
Filter = " 涉及表 = '车辆维修申请表' And ID = 'e.DataRow("_Identify")'"
DataTables("数据操作日志").LoadFilter = Filter
DataTables("数据操作日志").Load()

代码不对，麻烦指导下。

涉及表=当前表名，ID=当前行 的ID，涉及列=“审批结果1”及“审批意见1”、“审批意见2”、“审批结果2”、、、、