主题：[求助]不能录入小于原值

 不能录入小于原值，下面的代码无效，怎么修改呢？
第一列是整数列
DataColChanging

 If e.DataRow("第一列").NewValue <e.DataRow("第一列").oldValue  Then
        MessageBox.Show("不能录入小于原值!")
            e.Cancel = True '则取消编辑
End If

如果第一列是日期列，录入的日期不能早于或晚于原日期呢？

 如果增加一个条件：设计任务要求_实际设计面积为空时，不可以录入100
下面代码怎么修改呢？

If e.DataCol.name = "进度" AndAlso e.DataRow.RowState <> DataRowState.Added Then  
    If Tables("表A").Current("设计任务要求_实际设计面积") Is Nothing Then
        If e.newvalue = 100 Then
            msgbox("实际设计面积不能为空!")
            e.cancel = True
        End If
    End If
End If

 下面代码怎么修改，整改下面2段代码呢？求助

项目为空时，进度输入100，提示：不能小于已完成的进度  再提示 项目不能为空！   ，想实现不提示：提示：不能小于已完成的进度

项目不为空时，进度输入100 失败！  提示：不能小于已完成的进度    想实现能输入100



If e.DataCol.name = "进度" AndAlso e.DataRow.RowState <> DataRowState.Added Then
    If e.DataRow.OriginalValue(e.DataCol.name) <> Nothing AndAlso e.newvalue < e.DataRow.OriginalValue(e.DataCol.name) Then
        msgbox("不能小于已完成的进度")
        e.cancel = True
    End If

    If e.DataRow("项目") = Nothing Then
        If e.newvalue = 100 Then
            msgbox("项目不能为空!")
            e.cancel = True
        End If
    End If
End If

简单点说，就是项目列为空，进度不能输入100