2个组合框链接不同的数据,然后,一个组合框更改,导致另一个组合框内容更改,通常另一个组合框与更改的组合框是父子关系
Private Sub 街道_AfterUpdate()
If Trim(街道) <> "" Then
社区 = ""
社区.RowSource = "Select 社区.社区名称,社区.街道名称 FROM 社区 where 街道名称='" & 街道 & "' orDER BY 社区.社区名称"
社区.Requery
Else
社区.RowSource = "Select 社区.社区名称,社区.街道名称 FROM 社区 orDER BY 社区.街道名称,社区.街道名称"
社区.Requery
End If
End Sub