主题：[求助]日期提醒没反应

Dim dt As Date = Date.Today.AddDays(7)

Dim dr As DataRow = DataTables("采购明细").Find("账期= #" & dt & "#")

If dr IsNot Nothing Then

    MessageBox.Show("注意:有即将到期的采购付款!,请进入采购系统查看","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Tables("采购明细").Filter = "账期 = #" & dt & "#"

    MainTable = Tables("采购明细")

End If

账期是采购明细表中的字段，日期型的