主题：[求助]狐表关闭代码报错

Dim Result As DialogResult
If Tables("销售单").Current.DataRow.RowState = DataRowState.Unchanged
    e.Form.Close
Else
    Result = MessageBox.Show("该条记录没有保存,是否放弃?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.no Then
        Return
    End If
Tables("销售单").Current.Reject()
e.Form.Close

End If

设置在窗口的beforeclose，中，狐表 弹出一个窗口“狐表遇到原因需要关闭”，然而我做了一个按钮

将这段代码放在按钮的click中，执行正常呢

请问是代码问题吗