If Tables("预定统计").Current.IsNull("验证状态") Then '没找到,提示没这个订单
Messagebox.Show("没有这个订单")
End If
If Tables("预定统计").Current("验证状态") = True Then '找到后,如果值=ture,提示验证完了
MessageBox.Show("已经验证了")
End If
If Tables("预定统计").Current("验证状态") = False Then '找到后,如果值=false,提示订单创建的时间没到30分钟还剩余##分钟不可验证
Dim d1 As Date
d1 = Tables("预定统计").Current("下单日期")
Dim d2 As Date
d2 = Date.Now
Dim t As TimeSpan = d2 - d1
If t.TotalMinutes >= 30 Then
Dim yz As DialogResult
yz = MessageBox.Show( "是否验证","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If yz = DialogResult.Yes Then
Tables("预定统计").Current("验证状态") = True
Tables("预定统计").Current("验证员") = User.Name
Tables("预定统计").Current("抵达时间") = Date.Now
Tables("预定统计").Current.Save()
Else
Tables("预定统计").Current("验证状态") = False
End If
Else
Tables("预定统计").Current("验证状态") = False
MessageBox.Show("剩余时间:" & 30 - t.Minutes & "分钟")
End If
End If
[此贴子已经被作者于2017/7/20 17:18:41编辑过]
加好友 
发短信
Post By：2017/7/20 17:18:00 [只看该作者]
