- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 保质期设置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10841)
-- 发布时间：2011/6/26 18:50:00
-- 保质期设置
如果“库存明细表”中商品的 “生产日期”+该商品在“货品资料”表的“保质天数”-5（提前期） 所得出的新日期小于或等于今天日期，商品所在行变为红色，并自动填充到“保质期提醒”表中，当系统启动后，自动弹出“保质期提醒”表。请问如何设置?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:保质期设置.table |
-- 发布时间：2011/6/27 7:26:00
--
不用单独一个表，直接在原表提醒即可：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目85.table |
-- 发布时间：2011/6/27 12:00:00
--
DataTables("库存明细表").DataCols("生产日期").RaiseDataColChanged() \'对生产日期列触发DataColChanged事件,类似重新输入
Dim dr As DataRow = DataTables("库存明细表").Find("到期日期 <= #" & Date.Today() & "# And 到期日期 <> #0001-01-01#")
If dr IsNot Nothing Then
MessageBox.Show("有库存产品到期!")
Tables("库存明细表").Filter = "到期日期 <= #" & Date.Today() & "# And 到期日期 <> #0001-01-01#"
End If
希望在商品“到期日期”提前30天作出提示，请问上面这段代码如何修改？（因为到期再提示就没有意义了）
-- 发布时间：2011/6/27 12:05:00
--
DataTables("库存明细表").DataCols("生产日期").RaiseDataColChanged() \'对生产日期列触发DataColChanged事件,类似重新输入
Dim dr As DataRow = DataTables("库存明细表").Find("到期日期 <= #" & Date.Today().AddDays(-30) & "# And 到期日期 <> #0001-01-01#")
If dr IsNot Nothing Then
MessageBox.Show("有库存产品到期!")
Tables("库存明细表").Filter = "到期日期 <= #" & Date.Today().AddDays(30) & "# And 到期日期 <> #0001-01-01#"
End If
-- 发布时间：2011/6/27 12:31:00
--
应该是“到期日期”-30
不是今天日期-30
如果到期日期是2011-07-10；今天日期是2011-06-27 ，如果再减30，系统肯定不会提示，因为条件是 <=
请帮忙修改，谢谢！
-- 发布时间：2011/6/27 12:34:00
--
没有错，提前30天，就是到期如期比今天日期小30天
-- 发布时间：2011/6/27 12:37:00
--
把-30改为30，应该可以了。
-- 发布时间：2011/6/27 12:42:00
--
是的，我手误
-- 发布时间：2011/6/27 15:31:00
--
DataTables("库存明细表").DataCols("生产日期").RaiseDataColChanged() \'对生产日期列触发DataColChanged事件,类似重新输入
Dim dr As DataRow = DataTables("库存明细表").Find("到期日期 <= #" & Date.Today().AddDays(-30) & "# And 到期日期 <> #0001-01-01#")
If dr IsNot Nothing Then
MessageBox.Show("有库存产品到期!")
Tables("库存明细表").Filter = "到期日期 <= #" & Date.Today().AddDays(-30) & "# And 到期日期 <> #0001-01-01#"
End If
运行时会多次跳出“有库存产品到期”，
-- 发布时间：2011/6/27 15:40:00
--
代码设置在AfterOpenProject事件，这样就只会在打开项目的时候提示一次而已。