以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]库存的预警系统  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=34581)
--  作者：william627
--  发布时间：2013/6/9 16:51:00
--  [求助]库存的预警系统
参考了到期提醒设计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编辑过]
--  作者：delxkjhgq
--  发布时间：2013/6/9 17:49:00
--  
罗辑都不没有说清楚，叫人如何帮助。
--  作者：有点甜
--  发布时间：2013/6/9 18:26:00
--  

最好有个例子，否则别人好难理解的
--  作者：william627
--  发布时间：2013/6/10 22:52:00
--  
已解决
首先在订单表 多设置一个表达式，类别为逻辑，名称魏为计算列1

表达式设置：
IsNull([库存数],0) + IsNull([备货数],0)  <  IsNull([安全警戒数],0) And [库存数] > -1


在项目事件AfterOpenProject设置代码：
Dim dt As Boolean = True 
Dim dr As DataRow = DataTables("订货").Find("计算列1 = \'" & dt & "\'")

If dr IsNot Nothing Then
   
MessageBox.Show("目前有物料低於安全警戒数,请立即订货!!!","提示!") \'提示用户
    
Tables("订货").Filter = "计算列1 = \'" & dt & "\'"
    MainTable = Tables("订货")
End If