以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  内容修改保存的求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=45460)

--  作者:lb4177
--  发布时间:2014/1/26 16:23:00
--  内容修改保存的求助

哪位大侠帮我解决一下,我的表中有一列“证书编号”的内容很重要,如果证书编号为修改了,我想在表中的“修改”列中将证书编号中的修改前的内容和修改后的内容保存到修改列中,修改了几次我就保存几次,怎么可以实现,谢谢


--  作者:Bin
--  发布时间:2014/1/26 16:26:00
--  
把修改列类型设置为备注.

在DataColChangIng事件中
e.datarow("修改")=e.datarow("修改") & "修改时间:" & date.now & "  修改前:" & e.oldValue & "  修改后:" & e.newValue & vbclrf

--  作者:zyqzyy
--  发布时间:2014/1/26 17:31:00
--  
在Bin老师的代码上作了一点修改,实现楼主的要求!上个例子供参考!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:修改记录.foxdb


--  作者:lb4177
--  发布时间:2014/1/28 0:19:00
--  
大哥,你上传的例子我打不开,能否直接看看你的代码,谢谢
--  作者:lsy
--  发布时间:2014/1/28 8:17:00
--  

BeforeSaveDataRow

If e.DataRow.OriginalIsNull("证书编号") = False AndAlso e.DataRow("证书编号") <> e.DataRow.OriginalValue("证书编号") Then
    e.DataRow("修改记录") + = "修改时间:" & Date.Now & " 修改前:" & e.DataRow.OriginalValue("证书编号") & " 修改后:" & e.DataRow("证书编号") & vbcrlf
End If

 

 

 

没有保存的数据都没有意义。

如果保存前修改多次,并最终执行了保存操作,只有最后一次修改的数据,才有意义。

所以,DataColChangIng、DataColChanged事件,都不合适。


--  作者:lb4177
--  发布时间:2014/1/28 23:51:00
--  
非常感谢各位老师的指点,谢谢,现在可以实现了图片点击可在新窗口打开查看