以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于日期空值问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93433)
--  作者：紫色幽魂
--  发布时间：2016/11/28 23:13:00
--  [求助]关于日期空值问题
Select Case e.DataCol.Name
    Case "料单_完成时间"
        Dim d As DataRow = e.DataRow
        If d("料单_完成时间") < d("料单_开始时间") Then
            MessageBox.Show("完成时间不能小于开始时间","请注意",MessageBoxButtons.OK,MessageBoxIcon.Error)
            e.DataRow("料单_完成时间") = Nothing
        End If
End Select

为什么我按键盘删除键后就会死循环出现提示，值并没有变为空值，应该怎么变为空值
--  作者：有点蓝
--  发布时间：2016/11/28 23:20:00
--  
写到DataColChanging事件

Select Case e.DataCol.Name
    Case "料单_完成时间"
        If e.DataRow.IsNull("料单_完成时间") = False
            Dim d As DataRow = e.DataRow
            If d("料单_完成时间") < d("料单_开始时间") Then
                MessageBox.Show("完成时间不能小于开始时间","请注意",MessageBoxButtons.OK,MessageBoxIcon.Error)
                e.Cancel = True
            End If
        End If
End Select