[分享]省份城市输入(已修正)

kevindeng

根据最新的中国行政区划,做了一个方便省份,城市,县输入的小东西,三级联动,支持支持拼音首字母输入(这是借鉴了本论坛上的贴子,作者不知道是哪一位了,在此向他表示感谢),相信大家在工作中可能用的上,所以放上来共享.



如有什么BUG,希望大家一起来改正.

[此贴子已经被作者于2006-5-27 10:58:10编辑过]

tz-chf

浙江台州的信息没错

下面这段requery没反应

Private Sub comProvice_BeforeUpdate(Cancel As Integer)
comCity.Requery
comCountry.Requery
End Sub

kevindeng

我测试过的,浙江台州也没问题啊

tz-chf

浙江台州是没有问题

我是说这段代码什么用处？

kevindeng

我的本意是想在省份改变后刷新城市和县的列表,并清楚城市和县的文本.因为省份改变了,以前填写的城市和县就不对应了.

做如下更改:

Private Sub comCity_BeforeUpdate(Cancel As Integer)
comCountry = ""
comCountry.Requery
End Sub

Private Sub comProvice_BeforeUpdate(Cancel As Integer)
comCountry = ""
comCity = ""
comCity.Requery
comCountry.Requery
End Sub

tz-chf

可以了

建议：限于列表，beforeupdate改成afterupdate

kevindeng

谢谢,你的建议,已修改.

antity

rrrrrrrrrrrrrrrrr