主题：禁止重复

开始日期类型是:日期时间

 

Select Case e.DataCol.name
    Case "开始日期"
        If e.NewValue > "" AndAlso e.DataRow.IsNull("请假人") = False
            Dim dr As DataRow = e.DataRow
            If e.DataTable.Find("请假人 = '" & dr("请假人") & "'and 开始日期 = '" & e.NewValue & "'") IsNot Nothing Then
        MessageBox.Show(" " & dr("请假人")  & "   " & e.NewValue &"   已输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
      e.Cancel = True
    End If
End If
End Select

此主题相关图片如下：qq截图20140402170030.png

谢谢