请帮忙看下筛选后删除的代码怎么改才能完成我要的功能 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

用400的话单与客户资料表内登记的做比对如果400的电话出现在客户资料表中的，就把400表内的话单删除，最后保留的全是没有登记在客户资料表中的

但是400号码如果有连续2条重复的号码记录时，执行下面的代码只能删除第一条重复记录，请问如何修改代码已完成我想要的功能

For Each r As Row In Tables("销售400通话记录").Rows

Dim dr As DataRow = DataTables("客户资料").Find("联系电话 = '" & r("主叫号码") & "'")

If dr Is Nothing Then

r.Delete

End If

主题：请帮忙看下筛选后删除的代码 怎么改才能完成我要的功能