vb.net - 如何从一个列表中删除另一个列表中的所有项目？

Question

我正在从远程数据库读取一组行，并从本地数据库读取一组类似的行，然后使用 RemoveAll 删除本地已经存在的远程行...

remote_events = (From a In remote.Events
                          Where ...etc...).ToList
local_events = (From a In local.Events
                            Where ...etc...).ToList
remote_events.RemoveAll(Function (ByVal event_row As Remote_Event)
    (From a In local_events Where a.Identifier = event_row.Identifier).Count > 0)

但这对我来说似乎不对。当我真正需要做的就是检查是否存在匹配项时，我认为我不应该数数。我已经尝试了 IsDBNull 和 IsNothing 的各种用法，但得到了废话。我不能使用 .Except(如建议的 here )，因为列表元素的类型不同。

有更好的方法吗？

Answer 1

一种方法是这样的:

    remote_events.RemoveAll(Function(e) local_events.Exists(Function(f) f.Identifier = e.Identifier))