在代码的最后加三行:
MessageBox.show("Filter1 =" & Filter1)
MessageBox.show("Filter =" & Filter)
MessageBox.show("生效的 =" & Tables("中兴明细").Filter )
你就知道原因了。
你下面的代码意义何在:
If Filter > "" Then
If Filter1 > "" Then
Tables("中兴明细").Filter = Filter1
End If
Tables("中兴明细").Filter = Filter
End If
只要Filter不为空才执行,而且Filter不为空的时候,最终将筛选条件设置成Filter了,和Filter1没有任何关系了。
[此贴子已经被作者于2011-12-5 9:04:42编辑过]