回复 36楼 有容就大
*- 02 - 身份证发放地验证SELECT * FROM XQMC WHERE 县区代码==LEFT(SFZH,6) INTO CURSOR SFZ
IF RECCOUNT([SFZ])=0
MESSAGEBOX([未查到该身份证发放地代码],64,[系统信息])
RETURN
ELSE
MESSAGEBOX([该身份证发放地:]+CHRTRANC(省+IIF(INLIST(ALLTRIM(市),[市辖区],[县]),[],市)+县+[(]+县区代码+[)],[ ],[]),64,[系统信息])
ENDIF
USE IN ([SFZ])
就是前面的界面