主题：表格变更记录

参考

下载信息  [文件大小：312.0 KB  下载次数：6]

点击浏览该文件:操作日志2017.table

参考

http://www.foxtable.com/webhelp/scr/2292.htm

If e.DataTable.Name <> "数据操作日志" Then

    Dim dr As DataRow = DataTables("数据操作日志").AddNew

    dr("ID") = e.DataRow("_Identify")

    dr("用户") = User.Name

    dr("涉及表") = e.DataTable.Name

    dr("涉及列") = Nothing

    dr("涉及行") = e.DataRow("_Identify")

    dr("时间") = Date.Now

    dr("操作") = "删除了一行"

    Dim str As String = ""

    For Each c As DataCol In e.DataTable.DataCols

        str += c.Name & "=" & e.DataRow(c.Name) & "|"

    Next

    dr("原行数据") = str

End If

新增和修改都好用

BeforeDeleteDataRow

放在删除前不会有效  我想同时监视删除数据

要开启一下全局表事件的

For Each dt As DataTable In DataTables
    dt.GlobalHandler.DataColChanged = True
    dt.GlobalHandler.DataRowAdded = True
    dt.GlobalHandler.BeforeDeleteDataRow = True
Next