- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]代码出错在哪里 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64600)
-- 发布时间：2015/2/25 11:40:00
-- [求助]代码出错在哪里
最后设置项目事件AfterOpenProject的代码，以便打开项目的时候，能够自动提示并显示即将到期的产品：
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 & "#"
MainTable = Tables("库存表")
End If
此主题相关图片如下：123.png
-- 发布时间：2015/2/25 11:41:00
--
系统日期时间带有 上午下午 星期几 等字样,你改为标准日期格式即可.
-- 发布时间：2015/2/25 11:42:00
--
Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("库存表").Find("到期日期 <= #" & Format(dt,"yyyy-MM-dd") & "#")
If dr IsNot Nothing Then
MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("库存表").Filter = "到期日期 <= #" & Format(dt,"yyyy-MM-dd") & "#"
MainTable = Tables("库存表")
End If
-- 发布时间：2015/2/25 11:46:00
--
按照帮助文件 提醒到期 但不知道哪个到期啊 有没有办法列出来
-- 发布时间：2015/2/25 11:48:00
--
上面的代码就是啊，有什么问题么？
-- 发布时间：2015/2/25 11:53:00
--
只提醒了到期 但不知道哪些产品到期啊 难道是帮助文件里的到期自定义样式没设置？ 是到哪里设置到期 自定义样式
-- 发布时间：2015/2/25 11:55:00
--
以下是引用qqq310在2015/2/25 11:53:00的发言：
只提醒了到期 但不知道哪些产品到期啊 难道是帮助文件里的到期自定义样式没设置？ 是到哪里设置到期 自定义样式
只提醒了到期 但不知道哪些产品到期啊 难道是帮助文件里的到期自定义样式没设置？ 是到哪里设置到期 自定义样式
不明白你什么意思，库存表列出的所有记录，都是到期的啊。
-- 发布时间：2015/2/25 12:01:00
--
想了想 也没必要列出来 只要提醒了 我窗口有根据日期查询出来 感谢版主