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

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