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
加好友 
发短信
Post By：2021/6/17 8:32:00 [只看该作者]
