This commit is contained in:
SchreiberM 2017-03-23 17:16:14 +01:00
commit 3eac89a9a3

View File

@ -32,7 +32,7 @@ Public Class ClassControlValues
Case GetType(DevExpress.XtraEditors.DateEdit) Case GetType(DevExpress.XtraEditors.DateEdit)
Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, 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 Return False
Else Else
Return True Return True
@ -627,8 +627,7 @@ Public Class ClassControlValues
DirectCast(control, RadioButton).Checked = False DirectCast(control, RadioButton).Checked = False
Case GetType(DevExpress.XtraEditors.DateEdit) Case GetType(DevExpress.XtraEditors.DateEdit)
DirectCast(control, DevExpress.XtraEditors.DateEdit).DateTime = Now DirectCast(control, DevExpress.XtraEditors.DateEdit).DateTime = DateTime.MinValue
Case GetType(PictureBox) Case GetType(PictureBox)
DirectCast(control, PictureBox).BackgroundImage = Nothing DirectCast(control, PictureBox).BackgroundImage = Nothing