主题：保质期设置

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

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

点击浏览该文件:保质期设置.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天作出提示，请问上面这段代码如何修改？（因为到期再提示就没有意义了）

应该是“到期日期”-30

不是今天日期-30

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

请帮忙修改，谢谢！