For Each dr1 As DataRow In DataTables("表B").DataRows
If dr1.IsNull("第一列") = False Then
For Each dr2 As Datarow In DataTables("表A").Select("[第一列] = '" & dr1("第一列") & "'")
dr2.Delete()
Next
End if