非常感谢老师们支招，按照老师的方法，我已经下载地区表，并将此表转换成.DBF,不知怎样在文本框1输入身份证号，在文本框2中自动显示户籍所在地？

select 地区表
loca for allt(代码) == left(allt(THISFORM.文本框1.Value),6)
THISFORM.文本框2.Value = 地区表.地区


[ 本帖最后由 liuxingang28 于 2014-7-21 08:06 编辑 ]

在文本框1中输入身份证号码，在文本框2的WHEN或GOTFOCUS事件中，写入下面的代码：

select 地区表
loca for allt(代码) == left(allt(THISFORM.文本框1.Value),6)
IF FOUND()
   THISFORM.文本框2.Value = 地区表.地区
ENDIF 

谢谢老师们帮助，问题得到解决。

估计撤并地区的身份证号码，你可能无法获得正确的结果。

此问题各位版主分析的头头是道，学习了！