主题：下拉筛选为什么有重复值？

Dim jtzz As WinForm.ComboBox = e.Form.Controls("住址")
Dim zh As WinForm.ComboBox = e.Form.Controls("账号")
Tables("农户表").filter="家庭住址='" & jtzz.text & "' And  银行帐号='" & zh.text & "'"

Dim Filter As String
With e.Form.Controls("住址")
    If .Value IsNot Nothing Then
        Filter = "家庭住址 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("账号")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "银行帐号 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("农户表").Filter = Filter
End If

 

 

以上代码在住址的下拉筛选中怎么有重复值

数据里肯定有，我想在住址下选择时不要出现重复值，代码怎么改

住址是组合框，能用上面代码？