| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82110) |
| -- 作者：wgmcom -- 发布时间：2016/3/11 15:35:00 -- [求助] [此贴子已经被作者于2016/3/11 16:13:50编辑过]
|
| -- 作者：wgmcom -- 发布时间：2016/3/11 15:37:00 -- 怎么写代码 |
| -- 作者：大红袍 -- 发布时间：2016/3/11 16:26:00 -- 做一个PopupForm类型的窗口，放入table控件，绑定表。启动项目的时候，把窗口打开即可 。 Dim dt As Date = Date.Today.AddDays(10)Dim dr As DataRow = DataTables("库存表").Find("到期日期 <= #" & dt & "#") If dr IsNot Nothing Then MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Tables("库存表").Filter = "到期日期 <= #" & dt & "#" forms("窗口1").show End If |
| -- 作者：wgmcom -- 发布时间：2016/3/11 18:39:00 -- 回复：（大红袍）做一个PopupForm类型的窗口，放入tab... 谢谢，可是感觉效果不好，还有些功能不完善，我先研究研究， |