Dim d As Date = Date.Today
Tables("员工表").Filter ="[部门]=\'" & e.node.text & " \' and [合同截止日期]<=d.AddDays(30) "
e.sender.selectnode.text 这里是没问题的
给的报错是
Tables("员工表").Filter = "[部门] = \'" & e.node.text & "\' and [合同截止日期] <= #" & d.AddDays(30) & "#"