If Tables("仪器设备库").Current.Locked = False Then Dim Result As DialogResult Result = MessageBox.Show("您确定要删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then Syscmd.Row.Delete() Else Return End If Else MessageBox.show("您无权进行此项操作!","提示")