主题：保存退出

退出按钮，数据有过保存直接退出不删除当前数据，不需要保存数据退出时删除当前父表子表明细表的数据的代码

有过保存的操作代码怎么写

If MessageBox.Show("退出吗?", "提示!", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
   
    If Tables("入库明细").Current IsNot Nothing Then
        If MessageBox.Show("明细数据删除?", "请确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
           
            DataTables("入库明细码单").DeleteFor("[入库明细单号] ='" & Tables("入库明细").current("入库明细单号") & "'")
           
            Tables("入库明细").Current.Delete
        End If
    End If
   
    If Tables("入库").Current IsNot Nothing Then
       
        If MessageBox.Show("是否删除整张单据?", "请确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            DataTables("入库明细").DeleteFor("[入库单号] ='" & Tables("入库").current("入库单号") & "'")
           
            Tables("入库").Current.Delete
           
        End If
    End If
   
End If
e.Form.Close