OLDGZQ=SELECT() SELECT dmk LOCATE FOR zydm==ALLTRIM(THIS.VALUE) IF FOUND() thisform.txtzdgzMc.Value=dmk.zymc ELSE MESSAGEBOX("未找到该编号") THIS.Value="" RETURN 0 ENDIF SELECT (OLDGZQ) thisform.refresh