Office中国论坛/Access中国论坛

标题: 关于省、市、县对应输入问题 [打印本页]

作者: 01ymym 时间: 2009-1-7 21:58
标题: 关于省、市、县对应输入问题
前几天在论坛高手的指点下，做了一个省市对应输入的窗体，可是加入县后就出现了很多问题，如市还有重复项，三个关联出错等，烦请哪位高手帮看看，谢谢。见附件

[ 本帖最后由 01ymym 于 2009-1-7 22:21 编辑 ]

作者: Henry D. Sy 时间: 2009-1-7 22:11
把原来的市，县的行来源去掉留空
然后
Private Sub 省_AfterUpdate()
Me.市.RowSource = "select 市 from 表1 where 省='" & Me.省 & "'"
End Sub

Private Sub 市_AfterUpdate()
Me.Combo7.RowSource = "select 县 from 表1 where 省='" & Me.省 & "' and 市='" & _
Me.市 & "'"
End Sub

作者: 01ymym 时间: 2009-1-7 22:21
版主：按你指导的去做可是还出错呢，请再看一下。附件已修改

作者: Henry D. Sy 时间: 2009-1-7 22:34

原帖由 01ymym 于 2009-1-7 22:21 发表
版主：按你指导的去做可是还出错呢，请再看一下。附件已修改

作者: 01ymym 时间: 2009-1-7 22:38
谢谢版主，可是“市”这一栏下拉内容有重复啊，比如有两个“南京”、“合肥”，这个怎么解决呢？

作者: Henry D. Sy 时间: 2009-1-8 07:09
加上distinct谓语

Private Sub 省_AfterUpdate()
Me.市.RowSource = "select distinct 市 from 表1 where 省='" & Me.省 & "'"
End Sub

作者: gaofei186 时间: 2009-1-8 08:19
学习一下

作者: xuchunyang 时间: 2010-4-29 15:34
谢谢啦~~我也是初学者，这个问题都困扰我1天了！

作者: michael100 时间: 2010-4-30 12:25
学习中

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