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

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

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

雅痞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

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

雅痞123456

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

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

Post By：2018/1/5 13:38:00 [显示全部帖子]

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

主题：查看程序问题