[求助]库存的预警系统 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

参考了到期提醒设计http://help.foxtable.com/topics/2471.htm想做一个库存预警系统。

能夠实现库存数+备货数低於安全警戒数进行预警的提醒

遇到的问题是...由於这个范例是日期，而不是数字，要怎麽更改代码是数字能用的

到期日期＝生产天数+保值天数

安全警戒数＝库存数+备货数

目前是这麽参照的：

1.设置表的DataColChanged事件代码：

Select Case e.DataCol.Name
Case "库存数","备货数"
If e.DataRow.IsNull("库存数") Then
e.DataRow("安全警戒数") = Nothing
Else
e.DataRow("安全警戒数") = e.DataRow("库存数").AddDays(e.DataRow("备货数"))
End If
End Select

设置项目事件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

[此贴子已经被作者于2013-6-9 16:59:24编辑过]

主题：[求助]库存的预警系统