TextChanged事件
Dim d As DateIf Date.TryParse(e.Sender.Text, d) = false Then Tables("表A").Filter = ""Else Tables("表A").Filter = "time = #" & e.Sender.Text & "#"End If