标题：关于菜单筛选设计的问题

请教各位专家，我在菜单设计中添加了“筛选”功能区，及“期间筛选”的功能组，想根据我输入的数值来进行筛选，我参考帮助设置了代码，但是始终出现错误提示，请专家指点哪里出了问题？谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目.table

Dim 年度 As Integer
Dim 月度 As Integer
With RibbonTabs("筛选")("期间筛选")
    年度 = .Items("年度").Value
    月度 = .Items("月度").Value
End With
Tables("合同信息汇总表").Filter = "[年度] = " & 年度 & " And [月度] = " & 月度

 

1、年度和月度都是整数，不是日期，不需用用符号#括起来

2、不应用CurrentTable，而应该用Tables("合同信息汇总表")、

感谢狐爸爸，原来如此。