主题：[求助]求助删除按钮问题

Dim s As Row = Tables("检测维修单").Current

If Tables("检测维修单").Current("维修员")<>user.name Then

    MessageBox.Show("你无权删除此记录!")

Else

    If Tables("检测维修单").Current IsNot Nothing

        If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then

            

            Tables("检测维修单").Current.Delete

            Tables("技术支持部总表").Current.Delete

            MessageBox.Show("删除成功!")

        End If

    End If

End If

双击行，蹦出显示窗口，想在显示窗口中，删除被选中表，但是这个命令删除的顺序却是从下至上依次删除。如何解决

焦点并不同步的.

方案有2个

1.简单的  设置为主表

2.用代码同步主表   副本表currentchanged 事件  

Tables("检测维修单").Position=e.Table.Position