请问专家，下面这段编码如何才能正确？我想删除一行，无论点击“是”还是“否”，都删除了
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
怎样改呢？
加好友 
发短信
Post By：2016/6/14 16:35:00 [只看该作者]
