Dim d As Date = Date.NowDim Filter As String Filter = "录入日期 = d" Tables("支出明细").Filter = Filter应该怎么改,
就是要筛选出录入日期等于今天的行