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

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