主题：请专家帮我看看这段代码有问题吗?

Dim cnt As Integer =  DataTables("监造统计").Select("[监造状态] in ('在监造','在监控') and 距离交货期的时间 <= 0").Count

If cnt > 0 Then

    Tables("监造统计").filter = "[监造状态] in ('在监造','在监控') and 距离交货期的时间 <= 0"

    messagebox.show("总共有" & cnt & "项物资已到或超过交货期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

以上的代码运行后,Tables("监造统计").filter不起作用,但 messagebox.show能够显示准确的信息.我实在找不出问题在哪里?

谢谢专家了!