- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何计算库龄 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62454)
-- 发布时间：2015/1/1 17:19:00
-- 如何计算库龄
请教各位大神，依照产品表“入库时间”如何通过表达式或代码表达与当前日期相减后得出产品库龄！
谢谢！
-- 发布时间：2015/1/1 17:45:00
--
增加一个整数列 间隔
代码如下（datacolchanged事件） 入库日期变化时执行，
Select Case e.DataCol.name
Case "入库日期"
If e.NewValue IsNot Nothing Then
Dim d1 As Date
d1=e.NewValue
Dim d2 As Date
d2=Date.Today
Dim t As TimeSpan
t=d2-d1
e.DataRow("间隔")=t.days
End If
End Select
如果想每日自动更新 可以在这个表的afterload事件中执行代码:
e.DataTable.DataCols("入库日期").RaiseDataColChanged
e.datatable.save
-- 发布时间：2015/1/1 18:51:00
--
If e.DataCol.name = "入库时间"
If e.DataRow.IsNull("入库时间")
e.DataRow("库龄") = Nothing
Else
e.DataRow("库龄") = DateDiff("d",e.DataRow("入库时间"),Today)
End If
End If
-- 发布时间：2015/1/1 22:30:00
--
两位老大，怎么不行呢！表的库龄列没有数据？？
-- 发布时间：2015/1/1 22:30:00
--
老大，怎么不行呢！表的库龄列没有数据？？
-- 发布时间：2015/1/2 14:18:00
--
看看字段是否对应正确 另外已有行要手动重置列 操作方法 选中入库日期列 再单击菜单栏重置列
-- 发布时间：2015/1/4 12:30:00
--
和工龄的计算一样
http://www.foxtable.com/help/topics/2647.htm
-- 发布时间：2016/4/14 11:54:00
--
像EXCEL这样求和，在狐表里面设置是要怎么做的？
此主题相关图片如下：qq图片20160414115236.png
-- 发布时间：2016/4/14 13:11:00
--
参考
http://www.foxtable.com/help/topics/0602.htm