到期提示问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'最后设置项目事件AfterOpenProject的代码,以便打开项目的时候,能够自动提示并显示即将到期的产品:

'Dim dt As Date = Date.Today.AddDays(10)

Dim dr As DataRow = DataTables("表A").Find("安全情况" = "超安全" Or "安全情况"="低安全")

If dr IsNot Nothing Then

MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Tables("表A").Filter = ("安全情况" = "超安全" Or "安全情况"="低安全")

MainTable = Tables("表A")

End If

上面代码，想在表A的安全情况字段已写“超安全或低安全”的记录，在项目打开或系统主窗体打开以窗体打开提示或以提示信息方式进行提示。

而上面代码，没报错，但也没执行

主题：到期提示问题