求助高手：

我有两个表，建立关联，关联列为“项目名称”，父表中datacolchanged中写入代码，如果项目名称列发生变化，那么在子表中自动增加一行，然后复制某几列内容。

下面这段代码，是父表录入窗口中，退出按钮的写入代码

发现，如果把标黄部分换成reject 那么，不想保存退出时，父表行记录没有了，但是子表行依然存在，如果是delete，那么子表没有行，父表有，怎么解决啊？我想要的是如果不想把保存退出时，父子表的行都删除掉、

Dim Result As DialogResult
With CurrentTable
    If .Rows.Count > 0 Then
        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
            Else
                .Current.delete()
                e.Form.close()
            End If
        End If
    Else
        e.Form.Close
    End If
End  With