以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按钮提示错误帮看一下  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103990)
--  作者：a87994078
--  发布时间：2017/7/20 17:18:00
--  按钮提示错误帮看一下

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编辑过]
--  作者：a87994078
--  发布时间：2017/7/20 17:19:00
--  
图片这么插不上去？
--  作者：有点甜
--  发布时间：2017/7/20 17:26:00
--  

加上代码

 

If Tables("预定统计").Current Is Nothing Then

    msgbox("表格没有数据")

    Return

End If
--  作者：a87994078
--  发布时间：2017/7/20 17:32:00
--  
非常感谢