以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  到期提醒  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157105)

--  作者：outcat --  发布时间：2020/10/3 5:12:00 --  到期提醒 Forms("导航").open MainTable = Tables("Main") \'到期提醒 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 & "#"     Forms("母猪预产到期").open End If 老师，我想实现这个项目打开，导航这个主窗体出现后，然后再弹出这个到期提醒，可现在却是先弹出提醒，后面才打开主界面的，这个怎么处理

--  作者：有点蓝 --  发布时间：2020/10/6 8:57:00 --   "母猪预产到期"窗口是不是设置为自动打开了？去掉自动打开，改为false

--  作者：outcat --  发布时间：2020/10/6 22:41:00 --   老师，这样不行，现在 这个窗口  自动打开 就是 false

--  作者：有点蓝 --  发布时间：2020/10/7 8:42:00 --   把提醒的代码放到计划管理中：http://www.foxtable.com/webhelp/topics/0657.htm，间隔500，提醒后停止计时