Foxtable(狐表)用户栏目专家坐堂 → 数据操作日志记录删除行


  共有2541人关注过本帖树形打印复制链接

主题:数据操作日志记录删除行

帅哥哟,离线,有人找我吗?
Liangcai
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2541 威望:0 精华:0 注册:2011/9/24 13:30:00
数据操作日志记录删除行  发帖心情 Post By:2019/3/21 14:49:00 [显示全部帖子]

DataRowDeleted  代码

 

Dim cmd As New SQLCommand
cmd.CommandText = "SELECT * Fr om {数据操作日志} Where [_Identify] Is Null"
Dim dt As DataTable = cmd.ExecuteReader(True)
Dim dr As DataRow = dt.AddNew
dr("ID") = e.DataRow("_Identify")
dr("用户") = _UserName
dr("涉及表") = e.DataTable.Name
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

 

AfterOpenProject 代码

For Each dt As DataTable In DataTables
    dt.GlobalHandler.DataColChanged = True
    dt.GlobalHandler.DataRowAdded = True
    dt.GlobalHandler.DataRowDeleted = True
Next

请老师指点错在哪?谢谢

[此贴子已经被作者于2019/3/21 14:49:46编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Liangcai
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2541 威望:0 精华:0 注册:2011/9/24 13:30:00
  发帖心情 Post By:2019/3/22 8:19:00 [显示全部帖子]

没有报错提示,数据操作日志没有删除记录


 

[此贴子已经被作者于2019/3/22 11:58:49编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Liangcai
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2541 威望:0 精华:0 注册:2011/9/24 13:30:00
  发帖心情 Post By:2019/3/22 11:38:00 [显示全部帖子]

已经保存了


 回到顶部
帅哥哟,离线,有人找我吗?
Liangcai
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2541 威望:0 精华:0 注册:2011/9/24 13:30:00
  发帖心情 Post By:2019/3/22 11:40:00 [显示全部帖子]

找到问题了

For Each dt As DataTable In DataTables
    dt.GlobalHandler.DataColChanged = True
    dt.GlobalHandler.DataRowAdded = True
    dt.GlobalHandler.DataRowDeleting = True
Next


 回到顶部