主题：表格变更记录

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

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