主题：filter

Dim Filter As String
With e.Form.Controls("DropBox1")
    If .Value IsNot Nothing Then

        Filter = "superName = '" & .Value & "'"
        Filter = Filter & " OrElse "
        Filter = "OrganName = '" & .Value & "'"

    End If
End With

If Filter > "" Then
    Tables("organList").Filter = Filter
End If

 

 

老师，您看我这个有啥问题呀？红色代码，实现不了想要的功能

        Filter = "superName = '" & .Value & "'"
        Filter = Filter & " Or "
        Filter = Filter & "OrganName = '" & .Value & "'"

老师，为啥有时候or 有时候orelse ,我看都是一样的呀

还是不行，只能选出来一条，不能选出来多条

Filter = "superName = '" & .Value & "' orelse OrganName = '" & .Value & "'"

Filter = "superName = '" & .Value & "' or OrganName = '" & .Value & "'"

不是的，老师应该是4条，只能显示一条

上传实例说明。检查者2个列符合条件的内容是否有多余的空格

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目9.foxdb

 

老师，我做了外部表A和窗口1，您试一下

无法连接数据库，做个access数据库例子发上来测试