以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助每次修改都登记一下修改日期 代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19445)

--  作者:奥铃29670
--  发布时间:2012/5/10 9:54:00
--  求助每次修改都登记一下修改日期 代码
您好,我想在一个表中实收货款列在录入或修改时自动在收款列录入当天日期。  请问代码怎么写,昨天看了帮助文件自己没搞出来,求助  谢谢

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20120510070907.png
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2012/5/10 9:56:00
--  

在此表的DataColChanged事件中设置代码:

 

Select case e.DataCol.Name

   Case "实收货款列的名称"

        if e.DataRow("实收货款列的名称") > 0 Then

             e.DataRow("付款日期") = Date.Today

       End if

End Select

 


--  作者:奥铃29670
--  发布时间:2012/5/10 10:02:00
--  
谢谢OK