[求助]产品表中的该行被删除，并自动保存在“产品另存表”中... - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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