标题：保质期设置

 

如果“库存明细表”中商品的  “生产日期”+该商品在“货品资料”表的“保质天数”-5（提前期）  所得出的新日期小于或等于今天日期，商品所在行变为红色，并自动填充到“保质期提醒”表中，当系统启动后，自动弹出“保质期提醒”表。请问如何设置?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:保质期设置.table

不用单独一个表，直接在原表提醒即可：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目85.table

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天作出提示，请问上面这段代码如何修改？（因为到期再提示就没有意义了）

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

应该是“到期日期”-30

不是今天日期-30

如果到期日期是2011-07-10；今天日期是2011-06-27 ，如果再减30，系统肯定不会提示，因为条件是 <=

请帮忙修改，谢谢！

没有错，提前30天，就是到期如期比今天日期小30天

把-30改为30，应该可以了。

是的，我手误

运行时会多次跳出“有库存产品到期”，

代码设置在AfterOpenProject事件，这样就只会在打开项目的时候提示一次而已。