jj 22.03
This commit is contained in:
parent
f4b61df91e
commit
0d7ad73c35
@ -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
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user