Office中国论坛/Access中国论坛

标题: [分享]省份城市输入(已修正) [打印本页]

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

[attach]18056[/attach]

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

[attach]18070[/attach]

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

作者: tz-chf 时间: 2006-5-27 00:35
浙江台州的信息没错

下面这段requery没反应

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

作者: kevindeng 时间: 2006-5-27 00:52
我测试过的,浙江台州也没问题啊

作者: tz-chf 时间: 2006-5-27 03:24
浙江台州是没有问题

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

作者: kevindeng 时间: 2006-5-27 17:07
我的本意是想在省份改变后刷新城市和县的列表,并清楚城市和县的文本.因为省份改变了,以前填写的城市和县就不对应了.

做如下更改:

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 时间: 2006-5-27 17:20
可以了

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

作者: kevindeng 时间: 2006-5-27 18:59
谢谢,你的建议,已修改.

作者: antity 时间: 2006-6-2 00:01
rrrrrrrrrrrrrrrrr

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)