标题：怎么复制行到例外一个表

在表A中添加一列辅助的逻辑列 当把某一行的逻辑列改为true 则复制此行内容到表B 

假定表A和表B结构一样

如果要从表A复制到表B，假定结构一样，设置表A的DataColChanged事件代码：

If e.DataRow("逻辑列") = True Then

     Dim dr As DataRow = DataTables("表B").AddNew

     For Each dc As DataCol in DataTables("表B").DataCols

            dr(dc.Name) = e.DataRow(dc.Name)

     Next

End If