以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自动更最后联系日期为当天日期  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74342)

--  作者:ZHX88863808
--  发布时间:2015/9/9 7:01:00
--  [求助]自动更最后联系日期为当天日期
我有一个表A中,有两个日期列,即最后联系日期列和下次联系日期列,如果在下次联系日期列中更新日期,则在最后一次日期列中自动输入当天日期,请前辈老师帮忙写个代码,谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:最后联系日期自动更新.table


--  作者:大红袍
--  发布时间:2015/9/9 9:14:00
--  

DataColChanged事件

 

If e.DataCol.Name = "下次联系日期" Then
    e.DataRow("最后联系日期") = Date.Today
End If


--  作者:ZHX88863808
--  发布时间:2015/9/9 12:02:00
--  

谢谢老师!