您所在位置：主题：输入身份证号即可得知户口所在地的函数
lm60974
[专家分：90] 发布于 2006-03-31 23:49:00
不能发表文件如需要可留下EMAIL我发给大家
代码如下：
PARA KK
jj=space(10)
hh=space(10)
gg=space(10)
ff=space(10)
select xzqh &XZQH就是最新行政区位编号的一个表
jj=subst(kk,1,6)
hh=subst(jj,1,2)+"0000"
gg=subst(jj,1,4)+"00"
locate for alltrim(hh)==alltrim(str(bm))
ff=alltrim(mc)
locate for alltrim(gg)==alltrim(str(bm))
ff=ff+alltrim(mc)
if alltrim(jj)<>alltrim(gg)
locate for alltrim(jj)==alltrim(str(bm))
ff=ff+alltrim(mc)
endif
RETURN ff
代码如下：
PARA KK
jj=space(10)
hh=space(10)
gg=space(10)
ff=space(10)
select xzqh &XZQH就是最新行政区位编号的一个表
jj=subst(kk,1,6)
hh=subst(jj,1,2)+"0000"
gg=subst(jj,1,4)+"00"
locate for alltrim(hh)==alltrim(str(bm))
ff=alltrim(mc)
locate for alltrim(gg)==alltrim(str(bm))
ff=ff+alltrim(mc)
if alltrim(jj)<>alltrim(gg)
locate for alltrim(jj)==alltrim(str(bm))
ff=ff+alltrim(mc)
endif
RETURN ff
