主题：命令编写

我想， A 表 删除的行在B表里出现，两表结构一样

我在DataRowDeleting里输入这样的命令就是不好使

For Each
dr1 As DataRow In DataTables("表A").
     Dim dr2 As DataRow = DataTables("表B").AddNew()
     For Each dc As DataCol In DataTables("表A").DataCols
         dr2(dc.Name) = dr1(dc.name)
     Next
 Next
请问这个命令如何修改