[求助]筛选时怎么排除隐藏行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师，在主窗口中有一个筛选面板，主窗口的表名是《人员信息表》，《人员信息表》中有隐藏的行，即在职人员显示、离职人员隐藏，现在我想对可见行按条件进行筛选。我参照帮助文件写的筛选代码是：

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

Filter = "乡镇办 = '" & .Value & "'"

End If

End With

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

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

问题是在点击筛选按钮进行筛选后，隐藏的行也会显示出来。但我只希望筛选可见行，请问怎么写筛选代码？谢谢！

补充说明一下，我用的隐藏代码是：Tables("人员信息表").Filter = "任职状态 <> '离职'" '-----隐藏离职的行

[此贴子已经被作者于2018/10/13 15:40:09编辑过]

主题：[求助]筛选时怎么排除隐藏行