[求助]为什么多条件筛选删除代码中的筛选不起作用？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师好，我想通过下面的代码筛选出身份证号和职务都相同的行并删除，可是在实际执行时，只要身份证号相同而职务不同的行也删除了，请问代码哪里有问题？

Dim i As Integer

For i = DataTables("工作经历信息表").DataRows.Count-1 To 0 Step -1

Dim dr As DataRow = DataTables("工作经历信息表").DataRows(i)

Dim dr2 As DataRow = DataTables("工作经历信息表").Find("身份证号='" & dr("身份证号") & "' and 职务='" & dr("职务") & "' ")

If dr2 IsNot Nothing Then

dr2.Delete

End If

主题：[求助]为什么多条件筛选删除代码中的筛选不起作用？