在销售定单主表的窗口中，有一撤销按钮，撤销代码如下：

With Tables("销售定单主表")
    If .Current IsNot Nothing Then
        Dim drs As List (of DataRow)=.Current.DataRow.getchildrows("销售定单明细表")
        For Each dr As DataRow In drs
            dr.reject()
        Next
        .Current.DataRow.Reject()
    End If
End With

但是若删除了“销售定单主表.销售定单明细表”后未保存的情况下，点击撤销，删除行不会恢复，请问怎样做到将删除行也恢复。