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
老师，我想实现这个项目打开，导航这个主窗体出现后，然后再弹出这个到期提醒，可现在却是先弹出提醒，后面才打开主界面的，这个怎么处理
加好友 
发短信
Post By：2020/10/3 5:12:00 [只看该作者]
