- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]怎样计算库存时间 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24894)
-- 发布时间：2012/10/25 23:28:00
-- [求助]怎样计算库存时间
出库日期-入库日期=库存时长 要怎样才能实现
Dim d1 As Date = #3/17/2002# 这个日期要取值于 入库日期列 列类型为 日期与时间
Dim d2 As Date = #1/1/2008#
Dim t As TimeSpan = d2 - d1
Output.Show(t.TotalDays & "天") 这个显示计算要求在 库存时长 列显示计算结果
-- 发布时间：2012/10/26 9:06:00
--
呃，表达式不能进行日期运行吧。
楼主看看datacolchange事件
http://www.foxtable.com/help/topics/0625.htm
-- 发布时间：2012/10/26 10:51:00
--
TimeSpan
http://www.foxtable.com/help/topics/0287.htm
-- 发布时间：2012/10/26 21:43:00
--
在线等 那个老大帮忙解决一下
-- 发布时间：2012/10/26 23:20:00
--
看看这里的示例三：
http://www.foxtable.com/help/topics/1452.htm
-- 发布时间：2012/10/26 23:26:00
--
把这个代码放在你的表的datacolchanged事件中：
If e.DataCol.name = "库存时长" Then
Dim ts As timespan = e.DataRow("出库日期")-e.DataRow("入库日期")
e.DataRow("库存时长")= ts.TotalDays
End If
-- 发布时间：2012/10/27 10:44:00
--
将下面的代码设置在DataColChanged事件：
Select Case e.DataCol.Name
Case "入库日期","出库日期"
Dim dr As DataRow = e.DataRow
If dr.IsNull("入库日期") OrElse dr.IsNull("出库日期") Then
dr("库存时长") = Nothing
Else
Dim tp As TimeSpan = dr("出库日期") - dr("入库日期")
dr("库存时长") = tp.TotalDays
End If
End Select
参考这里的示例三：
http://www.foxtable.com/help/topics/1452.htm
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目15.table |