以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  通过“状态”列值的变化,记录log  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54491)

--  作者:liujywwy
--  发布时间:2014/7/29 15:35:00
--  通过“状态”列值的变化,记录log

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:临时版本跟踪系统26.rar

请教一下。

在临时版本跟踪表-----表事件-----afteredit的代码如下。(本意是想通过“状态”列值的变化,记录log,可为什么没生效呢?)

Dim r As Row = Tables("临时版本跟踪表").Current
If e.Col.Name = "状态" Then
    e.Row("log") = User.Name & " " & Date.Now & r("状态")
End If


--  作者:有点甜
--  发布时间:2014/7/29 15:39:00
--  

 编写Datacolchanged事件


If e.DataCol.Name = "状态" Then
    e.DataRow("log") = User.Name & " " & Date.Now & e.DataRow("状态")
End If


--  作者:Bin
--  发布时间:2014/7/29 15:42:00
--  
也可以,前提不是窗口编辑.
If e.Col.Name = "状态" Then
    e.Row("log") = User.Name & " " & Date.Now & e.row("状态")
End If