主题：[求助]这关闭代码哪里出错啦？

为什么点击关闭的时候，总是连项目也一起关闭掉了！到底哪里出错啦？

Dim Result As DialogResult

With Tables("销售副表")

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

    e.Form.Close

    Return

Else

   

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

    If Result = DialogResult.yes Then

        DataTables("销售主表").DeleteFor("合计金额 Is NULL")

        DataTables("销售副表").DeleteFor("产品名称 Is NULL")

        DataTables("销售副表").Save()

        DataTables("销售主表").Save()

        

    End If

    

    Tables("销售副表").Current.Reject()

    Tables("销售主表").Current.Reject()

    End If

End With

Forms("录入销售单据").Close