CREATE TABLE a2 (省市 c(10),身份证号 c(18))
FOR i=1 TO 2500
APPEND BLANK
REPLACE 省市 WITH [省市]+ALLTRIM(STR(i)),身份证号 WITH [12345678901234]+PADL(ALLTRIM(STR(i)),4,[0])
endf
SELECT [ ] 省市,身份证号 FROM a2 INTO dbf a1
update a1 set a1.省市=a2.省市 from a2 where a1.身份证号=a2.身份证号