以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  倒计时不会写，请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139775)

--  作者：yetle --  发布时间：2019/8/21 11:49:00 --  倒计时不会写，请教 Dim ds As Double = CDbl(Forms("流水线生产进度").Controls("Label10").Text) Dim d1 As Date = Tables("流水线生产进度_Table2").Current("要求货期") Dim d2 As Date = Date.Now         If Tables("流水线生产进度_Table2").Current("要求货期") IsNot Nothing Then             ds +=(d1 - d2).TotalDays         End If 提示：Conversion from string "Label10" to type \'Double\' is not valid.

--  作者：有点蓝 --  发布时间：2019/8/21 12:14:00 --   Dim ds As Double = val(Forms("流水线生产进度").Controls("Label10").Text)

--  作者：yetle --  发布时间：2019/8/22 9:27:00 --   这样改了之后,Label10的没有显示数值呢?

--  作者：有点蓝 --  发布时间：2019/8/22 9:28:00 --   代码放在哪里的？上传实例说明

--  作者：yetle --  发布时间：2019/8/22 10:03:00 --   代码是放afterload 正常是不是启用计时器,让后在TimerTick添加代码 Dim ds As Double = val(Forms("流水线生产进度").Controls("Label10").Text) Dim d1 As Date = Tables("流水线生产进度_Table2").Current("要求货期") Dim d2 As Date = Date.Now         If Tables("流水线生产进度_Table2").Current("要求货期") IsNot Nothing Then             ds +=(d1 - d2).TotalDays         End If  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目3.foxdb [此贴子已经被作者于2019/8/22 10:14:11编辑过]

--  作者：有点蓝 --  发布时间：2019/8/22 10:15:00 --   参考：http://www.foxtable.com/webhelp/topics/1301.htm http://www.foxtable.com/webhelp/topics/1322.htm

--  作者：yetle --  发布时间：2019/8/22 11:05:00 --   我不是上传了列子吗？你发的给我这两个链接也解决不了问题啊

--  作者：有点蓝 --  发布时间：2019/8/22 11:18:00 --   实例根本都没有任何和计时有关的用法呀。请先学会怎么使用计时器

--  作者：yetle --  发布时间：2019/8/22 12:11:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目3.foxdb 再帮我看看 此主题相关图片如下：微信图片_20190822121029.png

--  作者：有点蓝 --  发布时间：2019/8/22 13:40:00 --   Dim d1 As Date = Tables("流水线生产进度_Table2").Current("要求货期") Dim d2 As Date = Date.Now If Tables("流水线生产进度_Table2").Current("要求货期") IsNot Nothing Then     Forms("流水线生产进度").Controls("Label1").Text = Format(new Date().AddSeconds((d1 - d2).TotalSeconds),"d天H时m分s秒") End If