以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于日期段重复问题(已解决)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82188)

--  作者:kittyzhang
--  发布时间:2016/3/13 12:57:00
--  关于日期段重复问题(已解决)
各位大神好
     我有一张这样的表
图片点击可在新窗口打开查看  
第四行数据,赵琰的第二次出差日期与第一次出差日期有重复。我希望当出现这种情况的时候出现提示窗口,并返回重复行(也就是表中的第一张)。

能做到么?
[此贴子已经被作者于2016/3/13 19:34:20编辑过]

--  作者:kittyzhang
--  发布时间:2016/3/13 12:58:00
--  
主要是这个日期段重复如何判断后提醒。。。
--  作者:9602084
--  发布时间:2016/3/13 16:10:00
--  
Dim drr As DataRow = e.DataRow
Dim dr As DataRow
Select Case e.DataCol.Name
Case "出差日期","返回日期"
dr = DataTables("表A").Find("姓名 = \'" & drr("姓名") & "\' and 出差日期 < #" & drr(e.DataCol.name) & "# and 返回日期 > #" & drr(e.DataCol.name) & "# and [_identify] <> " & drr("_identify") )
If dr IsNot Nothing Then
drr(e.DataCol.name) = e.OldValue
MessageBox.show(e.DataCol.name & "错误")
End If
End Select

--  作者:kittyzhang
--  发布时间:2016/3/13 19:34:00
--  
问题解决~谢谢~谢谢~
--  作者:pengyg
--  发布时间:2016/11/20 7:27:00
--  
这个例子中,如果先填日期,再填人员姓名,则不报错。如果先填日期后填姓名,填姓名时也报错,应该怎么修改?
--  作者:有点青
--  发布时间:2016/11/20 9:10:00
--  
以下是引用pengyg在2016/11/20 7:27:00的发言:
这个例子中,如果先填日期,再填人员姓名,则不报错。如果先填日期后填姓名,填姓名时也报错,应该怎么修改?

 

贴出你写的代码,或者上传你做的项目。