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

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