LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.checkempty = m.vNewVal
IF EMPTY(this.Value)
=MESSAGEBOX("数据不能为空",0+48,"提示")
this.SetFocus
endif
FOR i=1 to thisform.ControlCount
IF thisform.Controls(i).baseclass="Textbox"
IF EMPTY(thisform.Controls(i).value )
=messagebox(thisform.Controls(i).name+"内容不能为空")
ENDIF
ENDIF
endfor