主题：[求助]请问这段代码有问题嘛？

放在窗口的beforeclose时间里的

Dim Result As DialogResult

With Tables("销售意向客户进度管制")

    If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改

        Return

    Else

        Result = MessageBox.Show("没有保存,是否放弃保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If Result = DialogResult.no Then

            e.cancel = True

            Return

        Else

            .Current.Reject()

        End If

    End If

End  With