以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  操作日志 记录新问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112901)
--  作者：yifan3429
--  发布时间：2018/1/4 22:11: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

这个代码是所有的变动都会记录  

1.我想排除 附件表 
 
2.或是  附件表  的   图片列
--  作者：有点甜
--  发布时间：2018/1/4 22:27:00
--  

1、 If e.DataTable.Name <> "数据操作日志" AndAlso e.DataTable.Name <> "附件表" Then

 

2、你这个是处理【新增行】的，不需要也不能排除某列。
--  作者：zoyong
--  发布时间：2018/3/11 13:00:00
--  
上面的代码能下能修改成    只有修改才记录，新增不需要记录
--  作者：有点甜
--  发布时间：2018/3/11 20:19:00
--  
以下是引用zoyong在2018/3/11 13:00:00的发言：
上面的代码能下能修改成    只有修改才记录，新增不需要记录

 

1、你在datarowadded事件，不写代码，不就行了？

 

2、如果需要【新增行修改记录也不记录】，可以在datacolchanged事件判断是不是新增行 http://www.foxtable.com/webhelp/scr/0428.htm