主题：日期输入框筛选的问题

这是我的一个窗口，窗口中日期输入框的valuechanged中我加入了以下代码，

Dim dat As Date = e.Form.controls("datetimepicker1").value
Tables("收支明细").Filter = "[发生日期] = # " & dat & " #"
Tables("收支明细").Position = 0

目的是想实现选择不同的日期，筛选出符合日期条件的数据行，但执行时出现这样的问题，如果是手动输入日期筛选没有问题，而用下拉键选中日期却会出现筛选出选中日期的数据以外还有上次选中日期的数据行，而且再选其他日期输入框内确不选择，只停留在第二次选择的日期上，请教是什么问题。如下图

 

此主题相关图片如下：qq截图未命名.png