查询按钮公式如下,但是不管你选什么日期,查询的结果都是日期为今天的那条记录
Dim 输入查询日期 As Date
Tables("网维中心值班表").Filter "[日期] = #"& 输入查询日期 & "#"