Dim Filter As String = ""
If e.node.Name.Contains("显示所有行" ) Then Tables("外宣信息记录").Filter = ""End If
If e.node.Name <> "显示所有行" Then