以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  查看程序问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=112921)

--  作者：雅痞123456 --  发布时间：2018/1/5 11:12:00 --  查看程序问题 Dim dc As DataCol = e.DataCol Dim dr As DataRow = e.DataRow If dc.Name = "初验日期" OrElse dc.Name = "检验周期" Then     If dr.IsNull("初验日期") OrElse dr.IsNull("检验周期") Then         dr("复检日期") = Nothing     Else         dr("复检日期") = dr("初验日期").AddDays(dr("检验周期"))     End If End If If e.DataCol.Name =  "复检日期" Then      If "复检日期" = Date.today Then     MessageBox.Show("请查看检具清单,有检具到期应该进行复检了")   End If End If 哪位大神帮忙看一看啊  ，小白一个还不是太了解

--  作者：有点蓝 --  发布时间：2018/1/5 12:08:00 --   代码运行有什么问题？你想做到期提醒？http://www.foxtable.com/webhelp/scr/2471.htm

--  作者：雅痞123456 --  发布时间：2018/1/5 13:38:00 --   谢谢   看来还是得先把帮助文件先看完啊