[求助]对前后两段任职经历进行时间上的审核 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师，有个人事类项目，项目中有个任职经历信息表，录入每个人员不同时间段的任职经历。现在想对上段经历的离职日期和下段经历的任职日期进行对比，如果下段的任职日期减去上段的离职日期，结果小于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

[此贴子已经被作者于2018/11/27 20:50:29编辑过]

主题：[求助]对前后两段任职经历进行时间上的审核