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

条件可以这样写

 

DataTables("表A").Select("入库完成时间 <= #" & date.Now.AddDays(-7) & "# and 已发送 = false")

 写到计划任务里面比较好，间隔半小时之类的。

 

1、参考

 

http://www.foxtable.com/help/topics/1452.htm

 

2、没必要每时每刻都计算，打开项目计算一次，或者做个计划管理，间隔一段时间计算，都可以。

Dim tp As TimeSpan = Date.Now - Cdate(dr("入库完成时间"))

sqlSelect的行，不能直接save的

 

示例二

如果是数据表，可以修改通过SQLSelect筛选出来的行，并保存之：

Dim drs As List(of DataRow) = DataTables("订单").SQLSelect("产品 = 'PD01'")
For Each dr As DataRow In drs
    dr("折扣") = 0.1
Next
DataTables("订单").SQLUpdate(drs)

SQLUpdate专门用于批量保存通过SQLSelect筛选出来的行。

提示：这只是一个介绍SQLSelect用法的例子，你真要更新后台数据，请使用SQLReplaceFor方法，会简洁高效很多。

看10楼啊

 

DataTables("库存明细表").SQLReplaceFor("在库生命周期", "DateDiff(d, 入库完成时间, GetDate())", "状态 = '入库完成'", true)

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

 都可以，没大问题