关于省、市、县对应输入问题

01ymym

前几天在论坛高手的指点下，做了一个省市对应输入的窗体，可是加入县后就出现了很多问题，如市还有重复项，三个关联出错等，烦请哪位高手帮看看，谢谢。见附件

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

Henry D. Sy

把原来的市，县的行来源去掉留空
然后
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

版主：按你指导的去做可是还出错呢，请再看一下。附件已修改

Henry D. Sy

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

01ymym

谢谢版主，可是“市”这一栏下拉内容有重复啊，比如有两个“南京”、“合肥”，这个怎么解决呢？

Henry D. Sy

加上distinct谓语

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

gaofei186

学习一下

xuchunyang

谢谢啦~~我也是初学者，这个问题都困扰我1天了！

michael100

学习中