Merge branch 'master' of http://SchreiberM@172.24.11.74:90/scm/git/RecordOrganizer
This commit is contained in:
commit
3eac89a9a3
@ -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
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user