主题：为什么退出窗口代码直接退出项目了呢？

Dim Result As DialogResult

With Tables("piao据")
    If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        e.Form.Close
        Return
    Else
        Result = MessageBox.Show("该记录没有保存,是否放弃?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.no Then
            Return
        End If
        .Current.Reject()
    End If
    .AllowEdit=False
    e.Form.Close
End  With