IF LEN(ALLTRIM(库位编号))=1 PADL(ALLTRIM(库位编号),4,'0') ENDIF
CLOSE TABLES USE allinfo SCAN IF LEN(ALLTRIM(库位编号))=1 UPDATE allinfo SET 库位编号=PADL(ALLTRIM(库位编号),4,"0") endi ends