主题：求教，不能提示信息，谢了啊

帮忙看看这个为什么不行呢？我想提示今天已经到期，且保质天数为空的数据。前面的都是实例中的，就加了一句话。。。。。

Dim dt As Date = Date.Today
Dim dr As DataRow = DataTables("库存表").Find("到期日期 <= #" & dt & "#" )
If dr IsNot Nothing Then
    MessageBox.Show("有货物超期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("库存表").Filter = "到期日期 <= #" & dt & "#" And "保质天数 Is Null" 
    MainTable = Tables("库存表")
End If

能用是能用了，还是有问题，明明没有符合提示的数据，一点开就出提示“有货物超期”，然后没有数据。

太感谢了，终于弄好了，这么点小问题，咨询了好几次，麻烦了