| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]对前后两段任职经历进行时间上的审核 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128049) |
| -- 作者：tkxffb -- 发布时间：2018/11/27 20:50:00 -- [求助]对前后两段任职经历进行时间上的审核 各位老师，有个人事类项目，项目中有个任职经历信息表，录入每个人员不同时间段的任职经历。现在想对上段经历的离职日期和下段经历的任职日期进行对比，如果下段的任职日期减去上段的离职日期，结果小于0（即上段的职务还没离职，下段的职务就已经任职了，事实上这是错误的），就弹出提示窗口。 下面是我参照帮助文档和论坛上的帖子写的代码，可是不能用，请指教，并把代码改一下。感谢！！！ Dim p1 As Row Dim p2 As Row For i As Integer = 1 To Tables("任职经历信息表").Rows.Count -1 p1 = Tables("任职经历信息表").Rows(i-1) p2 = Tables("任职经历信息表").Rows(i) If CDate(p2("任职日期")) - CDate(p1("离职日期")) < 0 Then Forms("任职经历输入错误提示窗口").open End If Next [此贴子已经被作者于2018/11/27 20:50:29编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2018/11/27 20:53:00 -- 日期直接比较即可 Dim p1 As Row Dim p2 As Row For i As Integer = 1 To Tables("任职经历信息表").Rows.Count -1 p1 = Tables("任职经历信息表").Rows(i-1) p2 = Tables("任职经历信息表").Rows(i) If p2("任职日期") < p1("离职日期") Then Forms("任职经历输入错误提示窗口").open End If Next |
| -- 作者：tkxffb -- 发布时间：2018/11/27 20:55:00 -- 感谢有点蓝老师这么快就回复了，我这就去试一下 |
| -- 作者：tkxffb -- 发布时间：2018/11/27 21:18:00 -- 有点蓝老师的指导，完美地实现了设计目的，再次感谢！ |