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