代码不往下执行了. - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码不往下执行了.

共有4103人关注过本帖树形打印复制链接主题：代码不往下执行了.

fox-man

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：250 积分：2749 威望：0 精华：0 注册：2014/3/11 12:11:00

代码不往下执行了. 发帖心情

Post By：2014/3/11 12:14:00 [只看该作者]

If Tables("订单").Current.IsNull("数量") = 0 Then
    MessageBox.Show("数量不能为0!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel= True
Else
    Ctype(ApplicationMenu.LeftItems("Save"), RibbonMenu.Button).PerformClick()
    Tables("订单").Current.Locked = True
    For Each dr As Row In Tables("订单").Rows
        dr("审核") = 1
    Next
End If

按钮事件,怎么数量不为0时还弹出提示,而不往下执行呢?

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/3/11 12:16:00 [只看该作者]

Messagebox.show(Tables("订单").Current("数量"))

fox-man

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：250 积分：2749 威望：0 精华：0 注册：2014/3/11 12:11:00

Post By：2014/3/11 12:23:00 [只看该作者]

以下是引用狐狸爸爸在2014-3-11 12:16:00的发言：

Messagebox.show(Tables("订单").Current("数量"))

不行啊,当数量大于0时,有两个提示,第一个提示的是数量..第二个提示还是数量不能为0 不往下执行.

如果数量大于0,那应该继续往下执行才是正确的.

程兴刚

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2014/3/11 12:26:00 [只看该作者]

If Tables("订单").Current isnot nothing

    If Tables("订单").Current("数量") = 0 Then
       MessageBox.Show("数量不能为0!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
       e.Cancel= True
    Else
      Ctype(ApplicationMenu.LeftItems("Save"), RibbonMenu.Button).PerformClick()
      Tables("订单").Current.Locked = True
       For Each dr As Row In Tables("订单").Rows
            dr("审核") = 1
       Next
    End If

End If

注：您的这一句：If Tables("订单").Current.IsNull("数量") = 0 Then

这里的0相当于逻辑值false，也就是您在判断当前行的数量列不为空时，则提示，和数量列是否为0没任何关系。

狐狸爸爸

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/3/11 12:30:00 [只看该作者]

老程说的对，应该：

If Tables("订单").Current.IsNull("数量") orelse  Tables("订单").Current("数量") = 0 Then
    MessageBox.Show("数量不能为0!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel= True
Else
    Ctype(ApplicationMenu.LeftItems("Save"), RibbonMenu.Button).PerformClick()
    Tables("订单").Current.Locked = True
    For Each dr As Row In Tables("订单").Rows
        dr("审核") = 1
    Next
End If