| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 升级2021版本后，原来的计时功能用不了了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169444) |
| -- 作者：lianghanyu -- 发布时间：2021/6/17 8:32:00 -- 升级2021版本后，原来的计时功能用不了了 原来是2020版本写好的程序，之前有正常一直在使用。 后来升级2021版本，我自己写的程序更新了一些功能，我发布升级包给用户升级，然后用户反映计时功能一直显示为零，不会计时了。 我的代码如下： Dim cmd As New SQLCommand Dim dt As Date cmd.C cmd.CommandText = "Select GetDate()" dt = cmd.ExecuteScalar() If Tables("设计时间统计表").Position > -1 Then If Tables("设计时间统计表").current("是否完成") = True Then MessageBox.Show("任务已经结束,如要重新计时,请建立新的任务") Else Dim t9 As Double = Tables("设计时间统计表").current("已用时间") Dim r As Row = Tables("设计时间统计表").current If r IsNot Nothing Then If r.IsNull("起始时间") Then If MessageBox.Show("任务未开始,要开始当前任务吗?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then Tables("设计时间统计表").current("起始时间") = Dt Tables("设计时间统计表").current("继续时间") = Dt Tables("设计时间统计表").current("是否暂停") = False Tables("设计时间统计表").current("进度状态") = "A进行中" Tables("设计时间统计表").save End If Else \'================================================================================================================================如果还没有暂停 If Tables("设计时间统计表").current("是否暂停") = False Then If MessageBox.Show("要暂停当前任务吗?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then Dim zt As WinForm.Form = Forms("暂停任务原因") If zt.Opened = False Then zt.Open End If End If \'开始当前任务结束句 \' Else \'================================================================================================================================如果已经暂停,要重新开始 If MessageBox.Show("要继续当前任务吗?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then Tables("设计时间统计表").current("是否暂停") = False Tables("设计时间统计表").current("进度状态") = "A进行中" Tables("设计时间统计表").current("继续时间") = dt Tables("设计时间统计表").save End If End If \'判断是暂停还是没有暂停的结束句 End If \'判断开始时间是否为空的结束句 End If \'判断 End If End If |
| -- 作者：lianghanyu -- 发布时间：2021/6/17 8:39:00 -- 已经解决了， 原来需要下载我的专用版本狐表才可以。 |