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

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

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

狐狸爸爸

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

加好友

发短信

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

Post By：2014/3/11 12:16:00 [显示全部帖子]

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

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

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：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

狐狸爸爸

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

加好友

发短信

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

Post By：2014/3/11 12:42:00 [显示全部帖子]

那就做个简单的例子，发上来说话吧

下一主题 >> << 上一主题

主题：代码不往下执行了.