[求助]怎样计算库存时间 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎样计算库存时间

共有10742人关注过本帖树形打印复制链接主题：[求助]怎样计算库存时间

天涯娇子

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：19 积分：220 威望：0 精华：0 注册：2012/10/19 9:51:00

[求助]怎样计算库存时间 发帖心情

Post By：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 20:34:12编辑过]

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/10/26 8:17:00 [只看该作者] 用户已被锁定

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/10/26 9:06:00 [只看该作者]

呃，表达式不能进行日期运行吧。

楼主看看datacolchange事件

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

wjl-se

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：771 积分：6388 威望：0 精华：0 注册：2011/12/1 14:47:00

Post By：2012/10/26 10:51:00 [只看该作者]

TimeSpan

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

[此贴子已经被作者于2012-10-26 10:52:08编辑过]

天涯娇子

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：19 积分：220 威望：0 精华：0 注册：2012/10/19 9:51:00

Post By：2012/10/26 21:43:00 [只看该作者]

在线等那个老大帮忙解决一下

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2012/10/26 23:20:00 [只看该作者]

看看这里的示例三：

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

Fotable

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1015 积分：6979 威望：0 精华：0 注册：2012/8/1 18:41:00

Post By：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

狐狸爸爸

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

下一主题 >> << 上一主题

主题：[求助]怎样计算库存时间