Foxtable(狐表) → 用户栏目 → 专家坐堂 → 操作日志 记录新问题


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

主题：操作日志 记录新问题
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		操作日志 记录新问题  发帖心情 Post By：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.或是  附件表  的   图片列
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/4 22:27:00 [只看该作者]

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

 

2、你这个是处理【新增行】的，不需要也不能排除某列。
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2018/3/11 13:00:00 [只看该作者]

上面的代码能下能修改成    只有修改才记录，新增不需要记录

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 4 次数据查询