- 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=46421)
-- 发布时间：2014/2/23 12:11:00
-- [求助]关于日期提醒代码问题！
此主题相关图片如下：111.jpg
新手帮助的例子：
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
代码启动项目后，会加载所有的行，时间已经过去的也会默认加载。该如何加上条件，启动项目后，只加载颜色变红的行呢，如下图！
此主题相关图片如下：1234.jpg
[此贴子已经被作者于2014-2-23 12:14:27编辑过]
-- 发布时间：2014/2/23 13:22:00
--
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
[此贴子已经被作者于2014-2-23 13:21:58编辑过]