- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表格变更记录 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110093)
-- 发布时间：2017/11/26 12:02:00
-- 表格变更记录
订单表 的 状态 列有新的变更时
在 备忘录表 新增一行 分别有 变更前 变更后 变更时间 变更人 4列 记录状态列的变更记录
代码怎样写
-- 发布时间：2017/11/26 16:16:00
--
参考
| 下载信息 [文件大小：312.0 KB 下载次数：6] | |
 点击浏览该文件:操作日志2017.table |
-- 发布时间：2017/11/26 16:17:00
--
参考
http://www.foxtable.com/webhelp/scr/2292.htm
-- 发布时间：2017/12/6 18:29:00
--
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
放在删除前不会有效 我想同时监视删除数据
-- 发布时间：2017/12/6 20:49:00
--
要开启一下全局表事件的
For Each dt As DataTable In DataTables
dt.GlobalHandler.DataColChanged = True
dt.GlobalHandler.DataRowAdded = True
dt.GlobalHandler.BeforeDeleteDataRow = True
Next