以文本方式查看主题

-  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=108350)

--  作者:seal51
--  发布时间:2017/10/20 15:38:00
--  [求助]进度表

图片点击可在新窗口打开查看此主题相关图片如下:wuyi20171020153536.jpg
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2017/10/20 15:51:00
--  

Select Case e.DataCol.Name
    Case "开始日期","完成日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("开始日期")  Then
            dr("执行天数") = Nothing
        ElseIf dr.IsNull("完成日期") Then

            Dim tp As TimeSpan = Date.Today - cdate(dr("开始日期") )
            dr("执行天数") = tp.TotalDays

        Else

            Dim tp As TimeSpan = dr("完成日期") - dr("开始日期")
            dr("执行天数") = tp.TotalDays
        End If
End Select


--  作者:seal51
--  发布时间:2017/10/20 16:42:00
--  
老师帮忙看看能否优化一下代码
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图纸进度111.zip


--  作者:有点甜
--  发布时间:2017/10/20 16:57:00
--  
 你是说优化事件代码?代码没问题的,必须像你那样写。
--  作者:seal51
--  发布时间:2017/10/20 17:21:00
--  
有点复杂, 谢谢老师了, 还有一个小问题, 就是选择审图完成时间,计算出审图时间,但是清除审图完成时间, 计算得出的审图时间不消失??
--  作者:有点甜
--  发布时间:2017/10/20 18:18:00
--  
以下是引用seal51在2017/10/20 17:21:00的发言:
有点复杂, 谢谢老师了, 还有一个小问题, 就是选择审图完成时间,计算出审图时间,但是清除审图完成时间, 计算得出的审图时间不消失??

 

我测试没问题。删除之后,就用今天的日期进行计算了。


--  作者:seal51
--  发布时间:2017/10/27 10:14:00
--  
重新打开项目为何不从今天的日期计算了, 还是昨天的
--  作者:有点甜
--  发布时间:2017/10/27 10:15:00
--  
以下是引用seal51在2017/10/27 10:14:00的发言:
重新打开项目为何不从今天的日期计算了, 还是昨天的

 

重置列

 

http://www.foxtable.com/webhelp/scr/1587.htm

 


--  作者:seal51
--  发布时间:2017/10/27 10:46:00
--  
谢谢!OK了!, 如何一个表中有任何数据变化, 那么自动保存, 代码如何写, 放在那里
--  作者:有点甜
--  发布时间:2017/10/27 10:47:00
--  
以下是引用seal51在2017/10/27 10:46:00的发言:
谢谢!OK了!, 如何一个表中有任何数据变化, 那么自动保存, 代码如何写, 放在那里

 

datacolchanged事件,加入 e.DataTable.Save 或者 e.DataRow.Save