Remove,自动移除已处理的数据! Post By:2014/7/23 16:25:00 [只看该作者]
此主题相关图片如下:qq图片20140723162049.jpg If User.Name = "张三" Then Dim Result As DialogResult Result = MessageBox.Show("生产派单已经完成?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then Tables("生产派单").current("派单完成")=True Tables("生产派单").Current.Remove() End If Else MessageBox.show("你无权执行此项操作!") End If