以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求时段列公式  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=11526)

--  作者:苗雨
--  发布时间:2011/8/1 11:09:00
--  求时段列公式

 

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

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

 

狐表新手,求帮助!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:障碍历时.rar

[此贴子已经被作者于2011-8-1 11:14:10编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/8/1 12:09:00
--  

除剩余时限外,其余各列不能是表达式列,必须是数据列,然后将此表的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


--  作者:苗雨
--  发布时间:2011/8/1 14:19:00
--  
感谢你的迅速回复。同时弱弱的问一句,“然后将此表的DataColChanged事件代码设置为:”这是在哪设。
--  作者:狐狸爸爸
--  发布时间:2011/8/1 14:34:00
--  

请参考:

 

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

 

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

 

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


--  作者:gtzaw
--  发布时间:2011/8/1 14:50:00
--  
图片点击可在新窗口打开查看偏心啊。。。。。。。。。
--  作者:苗雨
--  发布时间:2011/8/1 15:20:00
--  

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

 

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

 

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

 

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

 

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

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:障碍历时.rar

[此贴子已经被作者于2011-8-1 15:20:22编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/8/1 15:49:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目149.rar


--  作者:苗雨
--  发布时间:2011/8/1 16:12:00
--  

收到。谢谢!


--  作者:blackzhu
--  发布时间:2011/8/2 8:45:00
--  
以下是引用gtzaw在2011-8-1 14:50:00的发言:
图片点击可在新窗口打开查看偏心啊。。。。。。。。。


女孩子,你懂的.


--  作者:253173583
--  发布时间:2015/11/18 1:06:00
--  
图片点击可在新窗口打开查看