菜单中不是有这样的功能了吗?
http://www.foxtable.com/help/topics/0117.htm
http://www.foxtable.com/help/topics/2177.htm
写代码的话:
Tables("表名").Filter = “产品 = '" & Tables("表名").Current("产品") & “’”
还可以看看:
http://www.foxtable.com/help/topics/2410.htm