主题：求时段列公式

 

做一数据表，统计障碍历时等时间。

前三列受理时间、派修时间、修复时间为人工输入。我需要系统自动计算修复历时、障碍历时及剩余时限 。

 

狐表新手，求帮助！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:障碍历时.rar

除剩余时限外，其余各列不能是表达式列，必须是数据列，然后将此表的DataColChanged事件代码设置为：

 

 

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "受理时间"
        If dr.Isnull("受理时间") Then
            dr("障碍历时") = Nothing
        ElseIf dr.Isnull("修复时间")  = False Then
            dr("障碍历时") = dr("修复时间") - dr("受理时间")
        End If
    Case "修复时间"
        If dr.Isnull("修复时间") Then
            dr("修复历时") = Nothing
            dr("障碍历时") = Nothing
        ElseIf dr.Isnull("派修时间")  = False Then
            dr("修复历时") = dr("修复时间") - dr("派修时间")
            dr("障碍历时") = dr("修复时间") - dr("受理时间")
        End If
    Case "派修时间"
        If dr.Isnull("派修时间") Then
            dr("修复历时") = Nothing
        ElseIf dr.Isnull("修复时间")  = False Then
            dr("修复历时") = dr("修复时间") - dr("派修时间")
        End If
End Select

感谢你的迅速回复。同时弱弱的问一句，“然后将此表的DataColChanged事件代码设置为：”这是在哪设。

请参考：

 

帮助 - 开发指南 - foxtable编程 - 事件编程

 

最好先从头系统看一下帮助。

 

如果不会的话，按我的要求重新设计好表格，让后传上来，我帮你将代码写进去。

偏心啊。。。。。。。。。

是我太心急了。昨天晚上刚看到foxtable 编程，有些困，就自己先动手做个提提神。结果上来就不会。呵呵。

 

刚才找到了。在“表属性-事件-datecolchanged”中输入了你帮我做的代码。不过，输入前三列时间后，会出现错误提示，提示我截图上传附件中了。

 

我已经重设了障碍历时和修复历时的类型为双精度小数。

 

我上午传的文件，把“剩余时限”定义设错了。应该是“剩余时间=障碍时限-现在时间”。

 

麻烦你帮我把代码输入，我收藏了再回去先看帮助去学习。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:障碍历时.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目149.rar

收到。谢谢！