*将TEXT的INPUTMASK设置成与NO相同宽度的格式
COUNT FOR no=this.Value TO x
DO CASE
CASE EMPTY(ALLTRIM(this.Value))
MESSAGEBOX("请输入编号!",48,"提示")
RETURN .F.
CASE x>=1
MESSAGEBOX("该编号已有供应商,请重新输入!",48,"提示")
RETURN .F.
CASE X<1
RETURN .T.
ENDCASE
thisform.Refresh
感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@