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

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