[求助]实际操作过程中发现，每次通过“删除一行”按钮删除的表都是所在表的最早行，而不是想要删除的选中行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在窗口中，新建一个按钮控件，作用是，当所在表禁止删除时，只能通过“删除一行”按钮，删除一行，并保存至另存表。代码如下：

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)

dr1.save

End If

dr.delete

End If

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

请老师进测试项目看看，帮助解决一下？

[此贴子已经被作者于2019/4/30 9:51:40编辑过]

代码没问题，那为什么会只删除第一行，而不是选中行？

改成

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
        End If
        dr.delete
    End If
End If

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