参考了到期提醒设计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
2.
设置项目事件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编辑过]