Foxtable(狐表)用户栏目专家坐堂 → 请教如何保存多次修改的记录?


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

主题:请教如何保存多次修改的记录?

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


加好友 发短信
等级:三尾狐 帖子:771 积分:6388 威望:0 精华:0 注册:2011/12/1 14:47:00
请教如何保存多次修改的记录?  发帖心情 Post By:2012/7/12 16:08:00 [只看该作者]

假定产品表中有一个单价列,你认为这一列比较重要,所以希望增加一列,用于记录:谁在什么时候修改了此产品的单价。

 

假定新增列的名称为"Log",你可以在产品的AfterEdit事件中设置如下代码:

 

If e.Col.Name = "单价" Then
    e.
Row("Log") = User.Name & " " & Date.Now
End
If

 

这个只能保存最近一次的修改记录,请问老师如何实现每次的修改都会被纪录下来?


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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2012/7/12 16:11:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/12 17:15:00 [只看该作者]

Log改为备注列,原来的代码改为:
 
If e.Col.Name = "单价" Then
      if e.Row.IsNull("Log") then
           e.Row("Log") = User.Name & " " & Date.Now
      Else
            e.Row("Log") = e.Row("Log") & vbcrlf & User.Name & " " & Date.Now
      End if
End If

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


加好友 发短信
等级:三尾狐 帖子:771 积分:6388 威望:0 精华:0 注册:2011/12/1 14:47:00
  发帖心情 Post By:2012/7/13 8:47:00 [只看该作者]

谢谢狐爸!!


 回到顶部