主题：[求助]筛选按钮的实现

1、

Dim Filter As String = "日期 = #" & Date.Today & "#"
With e.Form.Controls("材料代号")
    If .Value IsNot Nothing Then
        Filter &= " and 材料代号 = '" & .Value & "'"
    End If
End With
Tables("电解电容").Filter = filter

2、和1同理。

3、建议你用加载的方式，而不是筛选，不然，你撤销筛选的时候，就可以看到全部数据了，不好控制

http://www.foxtable.com/webhelp/scr/2256.htm