if ur looking for date fields bound to tables, this is how i
handle it
1. for the table fields i place the validation for the field &
the validation text and default value
... i must have a valid expression in default value
2. in the textbox baseclass valid
local cs
cs=this.controlsource
if !empty(cs)
if !empty(dbgetprop(cs,"FIELD","RuleExpression"))
if eval(dbgetprop(cs,"FIELD","RuleExpression")) = .f.
this.value=iif(isnull(oldval(this.controlsource)),eval(dbgetprop(cs,"FIELD","DefaultValue")),oldval(this.controlsource))
return .f.
endif
endif
endif
return .t.