怎么建县区码转名称的自定义函数

lczzzzzzz · 发表于 2011-4-2 14:12

我取出身份证号的前六位码，然后建立自定义函数：根据六位码自动反回县区名称。可是我做了一个自定义函数，由于全国县区达6000多个，所以提示过程太大。请高手帮忙解决！谢谢！附县区码对应名称文本（写在函数里了）。

lhdcxz · 发表于 2011-4-2 14:39

这种数据组织方式不好。列张这样的表
地区号码
编号省市县邮编区号
2114 辽宁省葫芦岛市 0
211401 辽宁省葫芦岛市 (市辖区) 121500 0429
211402 辽宁省葫芦岛市连山区 121500 0429
211403 辽宁省葫芦岛市龙港区 121500 0429
211404 辽宁省葫芦岛市南票区 121500 0429
211421 辽宁省葫芦岛市绥中县 121700 0429
211422 辽宁省葫芦岛市建昌县 122200 0429
211481 辽宁省葫芦岛市兴城市 121600 0429
再用VLOOKUP

[ 本帖最后由 lhdcxz 于 2011-4-2 14:42 编辑 ]

roych · 发表于 2011-4-2 17:32

用Dlookup来提取就好了。
SELECT 信息表.身份证, IIf(IsNull(DLookUp("province","Area","code='" & Left([信息表]![身份证],6) & "'")),"查无此地",DLookUp("province","Area","code='" & Left([信息表]![身份证],6) & "'") & IIf(DLookUp("city","Area","code='" & Left([信息表]![身份证],6) & "'")="市辖区",Null,DLookUp("city","Area","code='" & Left([信息表]![身份证],6) & "'")) & DLookUp("town","Area","code='" & Left([信息表]![身份证],6) & "'")) AS MyP
FROM 信息表;
看起来代码很复杂，不过写起来很简单，见附件：

查找地区.rar (55.54 KB, 下载次数: 29)

lczzzzzzz · 发表于 2011-4-2 21:10

麻烦您重挂一下，我下载文件提示损坏！

roych · 发表于 2011-4-3 17:46

不会吧，是不是网速问题导致没有下载完整啊？我下载后可是打得开的噢。再传一次吧：

查找地区.rar (55.54 KB, 下载次数: 20)

lczzzzzzz · 发表于 2011-4-3 21:48

感谢roych 的帮助，我会用了，可是我SQL代码不太会，想读懂代码还得学一段时间！谢谢了！！

		自动登录	找回密码
密码			免费注册

[求助] 怎么建县区码转名称的自定义函数

回复 3楼 roych 的帖子