主题：复制时禁止复制重复行需要怎么加条件?

以下是复制语句,我想在这里面加入一个控制条件: 如果表B中已有ID值,则表A选中的ID值复制过去,也就是说只要有重复的记录行,就不要复制过去,只复制没有重复的记录行.

For Each r1 As Row In Tables("表A").GetCheckedRows
    Dim  r2 As Row = Tables("表B").AddNew
    R2("ID") = R1("ID")
    R2("CODE") = R1("CODE")

NEXT