主题：[求助]超过7天自动发mail通知。

 

入库单汇总表

有入库完成时间，在库生命周期，格式都是DateLongTime。

在库生命周期=现在的时间-入库完成时间，

如果在库完成时间大于7天就自动发mail出来。----发mail我写出来了。如何把在库时间大于7天写出来？

哦。那是不是应该写到计划表里面合适点。包括发送mail。

还有，我如果一定需要在库生命周期这个值，这个值怎么能自动算出来。

每时每刻都在变化好像也不合适。怎么做合适呢？

Dim dr As Row = Tables("库存明细表").Current
Dim tp As TimeSpan = Date.Now - dr("入库完成时间")
dr("在库生命周期") = tp.TotalDays
output.show(dr("在库生命周期"))

 

 

此主题相关图片如下：qq截图20160624100019.png

这是计划1的代码:

Dim drs As List(of DataRow) = DataTables("库存明细表").SQLSelect("状态 = '入库完成'")
For  Each dr As DataRow In drs
    Dim d  As Integer
    Dim tp As TimeSpan = Date.Today - Cdate(dr("入库完成时间"))
    d= tp.TotalDays
    dr("在库生命周期") = CStr(d) & "天"
    dr.save
Next

我现在再想的问题是，这个库存明细表的行在后台都是locked = true。那么使用上面的代码能有效吗？还是使用sqlreplacefor？

DataTables("库存明细表").SQLReplaceFor("在库生命周期",value，"状态 = '入库完成'"”)

 

 

DataTables("库存明细表").SQLReplaceFor("在库生命周期","cstr((Date.Today - Cdate("入库完成时间")).totaldays) & "天"","状态 = '入库完成'")---好像写的不对。

我看了，不是说用sqlreplacefor简洁高效很多么。

DataTables("库存明细表").SQLReplaceFor("冻结发货出库",1,"入库完成时间 <= #" & Date.Now.AddDays(1) & "# and 状态 = '入库完成'")

这句代码有问题吗？定时了，老提示14附件有错误。

冻结发货出库是逻辑性，替换后台的值直接用1就可以了吧，不是"1"吧