主题：[求助]实际操作过程中发现，每次通过“删除一行”按钮删除的表都是所在表的最早行，而不是想要删除的选中行？

Dim dr As Row = Tables("产品").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("产品").cols

                dr1(cl.Name) = dr(cl.name)

            Next

            dr1.save

        End If

        dr.delete

    End If

End If