主题：[求助]我想设计一个功能是表A删除一行之后，表B自动加入表A删除的那行数据

我想设计一个功能是表A删除一行之后，表B自动加入表A删除的那行的数据，哪位大哥告诉我一下这个功能的代码怎么写呢？

我看了帮助里的这个

DataRowDeleting

正在删除一行的时候执行，这时行还未被删除。

e参数属性：　

DataTable：返回要删除行的数据表。
DataRow：  返回要删除的数据行

我按照狐狸爸爸的代码操作了，可是为什么A表中删除的数据，在B表中是从第11行开始记录的呢？？？

设置表A的DataRowDeleting事件：

Dim dr1 As DataRow = e.DataRow
Dim dr2 As DataRow = DataTables("表B").AddNew
For Each dc As DataCol In DataTables("表B").DataCols
    If DataTables("表A").DataCols.Contains(dc.name) Then
        dr2(dc.name) = dr1(dc.name)
    End If
Next

麻烦狐狸爸爸帮帮忙，表A中删除的数据可不可以在表B中从第一行开始按照原来的顺寻排列呢