以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86277)

--  作者：陈卫 --  发布时间：2016/6/14 16:35:00 --  [求助] 请问专家，下面这段编码如何才能正确？我想删除一行，无论点击“是”还是“否”，都删除了 If Tables("生产安排表").current IsNot Nothing Then     MessageBox.Show("确定删除此行吗?删除后将无法恢复!", "提示", MessageBoxButtons.YesNo）         Tables("生产安排表").current.delete() End If 我在中间增加了判断，然后就无论点击“是”还是“否”，都删除不了了 If Tables("生产安排表").current IsNot Nothing Then     Dim Result As DialogResult     MessageBox.Show("确定删除此行吗?删除后将无法恢复!", "提示", MessageBoxButtons.YesNo)     If Result = DialogResult.Yes Then         Tables("生产安排表").current.delete()     End If End If 怎样改呢？

--  作者：大红袍 --  发布时间：2016/6/14 16:59:00 --   If Tables("生产安排表").current IsNot Nothing Then     Dim Result As DialogResult = MessageBox.Show("确定删除此行吗?删除后将无法恢复!", "提示", MessageBoxButtons.YesNo)     If Result = DialogResult.Yes Then         Tables("生产安排表").current.delete()     End If End If

--  作者：陈卫 --  发布时间：2016/6/14 17:04:00 --   谢谢专家！