主题：关于日期段重复问题（已解决）

     我有一张这样的表

  

第四行数据，赵琰的第二次出差日期与第一次出差日期有重复。我希望当出现这种情况的时候出现提示窗口，并返回重复行（也就是表中的第一张）。

能做到么？

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