利用下属代码,可以在DataRowAdded实现增加行记录日志。
无法在 DataRowDeleting及DataRowDeleted全局表事件中实现删除日志记录
If e.DataTable.Name <> "数据操作日志" Then
Dim dr As DataRow = DataTables("数据操作日志").AddNew
If DataTables(e.DataTable.Name).basetable.columns.Contains("_Identify") Then
dr("ID") = e.DataRow("_Identify")
Else
dr("ID") = e.DataRow("ID")
End If
dr("用户") = ComputerName
dr("涉及表") = e.DataTable.Name
dr("涉及列") = Nothing
dr("涉及行") = User.Name
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