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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请帮忙看下筛选后删除的代码怎么改才能完成我要的功能

共有3369人关注过本帖树形打印复制链接主题：请帮忙看下筛选后删除的代码怎么改才能完成我要的功能

mxm121

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：392 积分：3026 威望：0 精华：0 注册：2014/9/20 23:56:00

请帮忙看下筛选后删除的代码怎么改才能完成我要的功能 发帖心情

Post By：2014/11/6 13:08:00 [显示全部帖子]

用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

mxm121

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：392 积分：3026 威望：0 精华：0 注册：2014/9/20 23:56:00

Post By：2014/11/6 14:04:00 [显示全部帖子]

变通了下解决了但是否有更好的解决方法呢

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

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

If dr Is Nothing Then

r.Checked = True

End If

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

r1.Delete

另外这种在表A中查找是否包含表B中的电话有没有更高效的方式了我的客户资料有上万条 400通话记录每周也有几百条。。。。

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