以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教如何保存多次修改的记录?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21449)

--  作者:wjl-se
--  发布时间:2012/7/12 16:08:00
--  请教如何保存多次修改的记录?

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

 

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

 

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

 

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


--  作者:狐狸爸爸
--  发布时间: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
--  发布时间:2012/7/13 8:47:00
--  

谢谢狐爸!!