Foxtable(狐表)用户栏目专家坐堂 → 时间累加


  共有3866人关注过本帖平板打印复制链接

主题:时间累加

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2022/5/14 20:38:00 [只看该作者]

帮助有现成的例子:

其中示例四就是了:

示例四


下图的起始时间和计划结束时间是日期时间型列,日期时间格式为:DateTime。


计划用时是一个双精度小数列,扩展列类型为:时段型

图片点击可在新窗口打开查看


为了根据起始时间和计划用时,算出计划结束时间,可以将该表的DataColChanged时间代码设置为:

Select Case e.DataCol.name
    Case "起始时间","计划用时"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("起始时间"Or dr.IsNull("计划用时"Then
           dr("计划结束时间") = Nothing
        Else
            Dim dt As Date = dr("起始时间")
            dr("计划结束时间") = dt.AddSeconds(dr("计划用时")) '注意时段型列是以秒为单位参与计算的
        End 
If

End
 Select




你的:

Select Case e.DataCol.Name
    Case "排序时间", "理论加工耗时"
        Dim dr As DataRow = e.DataRow
        If dr.Isnull("排序时间") = False AndAlso dr.Isnull("理论加工耗时") = False Then
            Dim dt As Date = dr("排序时间")
            dr("理论完成时间") = dt.AddHours(dr("理论加工耗时"))
        Else
            dr("理论完成时间") = Nothing
        End If
End Select

 回到顶部