以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  创建修改日志  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61522)

--  作者:xjc620
--  发布时间:2014/12/14 0:09:00
--  创建修改日志
想创建一个修改的日期内容如下 表1里有车号列和维护日期列
用户 在  (什么时间)   将车号为 (车号列)的维护日期(更改前的日期)更改为了(更改后日期)
张三在 2014-12-12 将车号为 P9518 的维护日期 2014-1-1 更改为了 2014-1-2
[此贴子已经被作者于2014-12-14 0:13:04编辑过]

--  作者:有点甜
--  发布时间:2014/12/14 9:24:00
--  

 你可以在Datacolchanged时间加入代码,比如

 

If e.DataCol.Name = "车号" Then

    e.DataRow("日志") &= vbcrlf & user.Name & "把" & e.OldValue & "改成" & e.NewValue

End If


--  作者:xjc620
--  发布时间:2014/12/14 15:17:00
--  
还是 不行
只显示改的车号不能显示----改为---

--  作者:有点甜
--  发布时间:2014/12/14 15:19:00
--  

肯定可以。第一次此的修改肯定是从空值到有值的啊。

 

多修改几次。或者这样写

 

If e.DataCol.Name = "车号" Then

    e.DataRow("日志") = user.Name & "把" & e.OldValue & "改成" & vbcrlf & e.NewValue e.DataRow("日志")

End If


--  作者:xjc620
--  发布时间:2014/12/15 22:40:00
--  
If e.DataCol.Name = "车号" Then
    e.DataRow("修改日志") &= vbcrlf & user.Name & "把" & e.OldValue & "改成" & e.NewValue
End If


还是无效,修改好多次了,日志里显示空白

--  作者:有点甜
--  发布时间:2014/12/15 22:44:00
--  
  不可能啊,例子,哪个表。
--  作者:xjc620
--  发布时间:2014/12/15 22:45:00
--  
日新车队表,甜版有我列子啊
--  作者:xjc620
--  发布时间:2014/12/15 22:46:00
--  
另难道能这样显示,格式好像不太一样啊

张三在 2014-12-12 将车号为 P9518 的维护日期 2014-1-1 更改为了 2014-1-2

--  作者:有点甜
--  发布时间:2014/12/15 22:50:00
--  
 例子,肯定是你写错了代码啊
[此贴子已经被作者于2014-12-15 22:50:07编辑过]

--  作者:xjc620
--  发布时间:2014/12/15 22:51:00
--  

以下内容是专门发给有点甜浏览

密码158998
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:日新车队数据库.rar
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:日新车队管理系统.foxdb