From 0d7ad73c35a92f5e12b9bc2fe35b9229e7cdbb5d Mon Sep 17 00:00:00 2001 From: JenneJ Date: Wed, 22 Mar 2017 15:45:55 +0100 Subject: [PATCH] jj 22.03 --- app/DD-Record-Organizer/ClassControlValues.vb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/app/DD-Record-Organizer/ClassControlValues.vb b/app/DD-Record-Organizer/ClassControlValues.vb index 4116e19..d58136b 100644 --- a/app/DD-Record-Organizer/ClassControlValues.vb +++ b/app/DD-Record-Organizer/ClassControlValues.vb @@ -32,7 +32,7 @@ Public Class ClassControlValues Case GetType(DevExpress.XtraEditors.DateEdit) Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit) - If IsDBNull(datepicker.EditValue) Then + If IsDBNull(datepicker.EditValue) Or datepicker.EditValue = DateTime.MinValue Then Return False Else Return True @@ -622,8 +622,7 @@ Public Class ClassControlValues DirectCast(control, RadioButton).Checked = False Case GetType(DevExpress.XtraEditors.DateEdit) - DirectCast(control, DevExpress.XtraEditors.DateEdit).DateTime = Now - + DirectCast(control, DevExpress.XtraEditors.DateEdit).DateTime = DateTime.MinValue Case GetType(PictureBox) DirectCast(control, PictureBox).BackgroundImage = Nothing