| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133505) |
| -- 作者：巷弄太过弯曲 -- 发布时间：2019/4/15 13:20:00 -- 求助 老师，请问操作日志删除行代码怎么写 增加行代码是：If e.DataTable.Name <> "数据操作日志" Then Dim dr As DataRow = DataTables("数据操作日志").AddNew dr("ID") = e.DataRow("_Identify") dr("用户") = _UserName 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
|
| -- 作者：有点甜 -- 发布时间：2019/4/15 15:13:00 --
一样这样写，代码写到datarowdeleting事件，即可。
|
| -- 作者：巷弄太过弯曲 -- 发布时间：2019/4/15 16:18:00 -- 以下是引用有点甜在2019/4/15 15:13:00的发言：
一样这样写，代码写到datarowdeleting事件，即可。
老师 好像没效果，是不是要改项目事件 maintablechanged事件 这个事件代码现在写的是：For Each dt As DataTable In DataTables dt.GlobalHandler.DataColChanged = True dt.GlobalHandler.DataRowAdded = True Next |
| -- 作者：有点甜 -- 发布时间：2019/4/15 16:45:00 -- 加上
dt.GlobalHandler.DataRowDeleting = True
|