主题：如何把结构相同的表B的数据复制到表A。

AndAlso e.DataRow("shuxi") = True Then  逻辑列?

如果希望新增行能够自动从最后一行复制全部内容，可以将DataRowAdding事件的代码设置为：

If e.DataTable.DataRows.Count = 0 Then '如果是一个空表
    Return '那么返回
End If
Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) '获得最后一行
For Each dc As DataCol In e.DataTable.DataCols
    e.DataRow(dc.Name) = dr(dc.Name) '将最后一行的内容复制到新增行中.
Next