查看程序问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查看程序问题

共有2151人关注过本帖树形打印复制链接主题：查看程序问题

雅痞123456

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：203 积分：1368 威望：0 精华：0 注册：2017/12/4 15:36:00

查看程序问题 发帖心情

Post By：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

If e.DataCol.Name = "复检日期" Then

If "复检日期" = Date.today Then

MessageBox.Show("请查看检具清单,有检具到期应该进行复检了")

End If

哪位大神帮忙看一看啊，小白一个还不是太了解

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110624 积分：563022 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/1/5 12:08:00 [只看该作者]

代码运行有什么问题？你想做到期提醒？http://www.foxtable.com/webhelp/scr/2471.htm

雅痞123456

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：203 积分：1368 威望：0 精华：0 注册：2017/12/4 15:36:00

Post By：2018/1/5 13:38:00 [只看该作者]

谢谢看来还是得先把帮助文件先看完啊

主题：查看程序问题