Foxtable(狐表)用户栏目专家坐堂 → 按钮提示错误帮看一下


  共有1356人关注过本帖树形打印复制链接

主题:按钮提示错误帮看一下

帅哥哟,离线,有人找我吗?
a87994078
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:292 威望:0 精华:0 注册:2017/5/24 22:20:00
按钮提示错误帮看一下  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:292 威望:0 精华:0 注册:2017/5/24 22:20:00
  发帖心情 Post By:2017/7/20 17:19:00 [只看该作者]

图片这么插不上去?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/20 17:26:00 [只看该作者]

加上代码

 

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

    msgbox("表格没有数据")

    Return

End If


 回到顶部
帅哥哟,离线,有人找我吗?
a87994078
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:292 威望:0 精华:0 注册:2017/5/24 22:20:00
  发帖心情 Post By:2017/7/20 17:32:00 [只看该作者]

非常感谢

 回到顶部