主题：自动复制行，删除行

自动复制行

假定表A有个逻辑列，希望在某行选中此逻辑列时，自动将此行复制到表B，并删除表a中刚才的哪一 行。 

If e.DataCol.Name = "逻辑列名" AndAlso 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

怎样实现当此逻辑列由true 变为false时再删除表b中刚新增的行？