辅助列,列名加上前缀,比如 辅助_排序
If e.DataTable.Name <> "操作日志" AndAlso e.DataCol.Name Like "辅助_*" = False Then
Dim dr As DataRow = DataTables("操作日志").AddNew
dr("用户") = User.Name
dr("涉及表") = e.DataTable.Name
dr("涉及列") = e.DataCol.Name
dr("涉及行") = e.DataRow("_Identify")
dr("操作时间") = Date.Now
dr("操作") = """" & e.OldValue & """ 改成了 """ & e.NewValue & """"
dr("原始数据") = e.OldValue
End If