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

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

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

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

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没任何关系。