表格:如果用户删除过滤器，则清除过滤器组合

Question

i创建了连续表格，并在标题中使用组合框，以允许用户轻松地应用预定义的过滤器之一。
如果用户设置过滤器，然后单击表单底部的内置Filtered矩形以删除过滤器，我想清空组合。
由于Filter事件在这种情况下不发射，并且ApplyFilter事件在修改FilterOn之前运行，我不能依靠它们。

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
    Debug.Print Now, "Apply", Me.FilterOn, Me.Filter    'returns the OLD values :-(
End Sub

是否有任何建议解决这个难题？我认为我仔细地参加了所有表格事件，没有成功。
否则，我将不得不隐藏内置的导航按钮，并且我希望尽可能保留内置工具。

Answer 1

您只需检查ApplyFilter事件中的ApplyType（0 =清除过滤器，1 =施加或更改过滤器）。

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
    If ApplyType = 0 Then
        'Clear that combobox
    End If
End Sub