Tables("生产任务单").StopRedraw If Tables("生产任务单").Current("关闭") = True Then Tables("生产任务单").Current("关闭") = False Return Else If MessageBox.Show("确定要关闭该笔任务单吗?" ,"请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then Tables("生产任务单").Current("关闭") = True End If End If