禁止重复 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 禁止重复

共有2310人关注过本帖树形打印复制链接主题：禁止重复

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：176 积分：1353 威望：0 精华：0 注册：2014/3/27 14:28:00

禁止重复

Post By：2014/4/2 17:01:00 [只看该作者]

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

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