主题：关于增加数据到另一个表的问题

If e.DataCol.Name = "逻辑列名" = 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时,自动将当前行数据增加到表B.

我的问题是:当If e.DataCol.Name = "逻辑列名" = False Then时,能够从表B找到与本表相同的数据删除.请问如何做?

If e.DataCol.Name = "逻辑列名" AndAlso e.DataRow("逻辑列名") = True Then
     Dim dr As DataRow = DataTables("表B").Find("某列= '" & e.Datarow("某列") & “‘”）

     if dr IsNot  Nothing Then

          dr.Delete

     End if
End If