主题：[求助]产品表中的该行被删除，并自动保存在“产品另存表”中...

窗口1中，“产品”表与“订单”表，都在表属性中设置了禁止删除，在窗口1中，新建一个控件按钮“删除一行另存”，

确定要删除和另存的编号，另存后再删除

求具体代码，拜托

Dim dr As Row = Tables("窗口1_Table2").Current
If dr IsNot Nothing Then
    If MessageBox.Show("确定要删除该数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        Dim dr1 As DataRow = DataTables("产品另存表").Find("自动编号='" & dr("自动编号") & "'") '判断一下是不是需要排除重复,如果不需要就将代码去除'
        If dr1 Is Nothing Then
            dr1= DataTables("产品另存表").addnew
            For Each cl As Col In Tables("窗口1_Table2").cols
                dr1(cl.Name) = dr(cl.name)
            Next
            dr1.save
            For Each cdr As DataRow In DataTables("订单").Select("产品编号='" & dr("产品编号") & "'")
                dr1= DataTables("订单另存表").addnew
                For Each cl As Col In Tables("订单另存表").cols
                    dr1(cl.Name) = cdr(cl.name)
                Next
            Next
        End If
        dr.delete
    End If
End If

Dim dr As Row = Tables("窗口1_Table2").Current If dr IsNot Nothing Then     If MessageBox.Show("确定要删除该数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then         Dim dr1 As DataRow = DataTables("产品另存表").Find("自动编号='" & dr("自动编号") & "'") '判断一下是不是需要排除重复,如果不需要就将代码去除'         If dr1 Is Nothing Then             dr1= DataTables("产品另存表").addnew             For Each cl As Col In Tables("窗口1_Table2").cols                 dr1(cl.Name) = dr(cl.name)             Next             dr1.save             For Each cdr As DataRow In DataTables("订单").Select("产品编号='" & dr("产品编号") & "'")                 dr1= DataTables("订单另存表").addnew                 For Each cl As Col In Tables("窗口1_Table1").cols                     dr1(cl.Name) = cdr(cl.name)                 Next             Next         End If         dr.delete     End If End If