如何从后向前找出重复记录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何从后向前找出重复记录

共有3589人关注过本帖树形打印复制链接主题：如何从后向前找出重复记录

zhangchi96

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

等级：二尾狐帖子：555 积分：5037 威望：0 精华：0 注册：2012/2/11 13:27:00

如何从后向前找出重复记录 发帖心情

Post By：2021/4/2 10:33:00 [只看该作者]

For Each dr0 As DataRow In DataTables("考评人权限").Select("","序号 desc")

If Tables("考评人权限").DataTable.Compute("Count(考评人编号)"," 考评人编号 = '"& dr0("考评人编号") &"'") > 1 Then

dr0 = DataTables("考评人权限").Find(" 考评人编号 = '"& dr0("考评人编号") &"' " ) '找出要查找姓名的人对应的DataRow

Dim po As Integer = Tables("考评人权限").FindRow(dr0) '找出该DataRow在Table中的位置

Tables("考评人权限").Position = po '选定

Return '返回

Exit For

End If

Exit For

请教老师，我想定位到最后一个考评人编号重复的记录，但不知道错在哪里？

[此贴子已经被作者于2021/4/2 10:33:29编辑过]

有点蓝

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

等级：超级版主帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/2 10:39:00 [只看该作者]

dim t as table = Tables("考评人权限")

t.sort = “考评人编号”

for i as integer = t.rows.count - 1 to 1 step -1

if t.rows(i)("考评人编号") = t.rows(i-1)("考评人编号") then

t.Position = i

exit for

end if

zhangchi96

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

等级：二尾狐帖子：555 积分：5037 威望：0 精华：0 注册：2012/2/11 13:27:00

Post By：2021/4/7 10:50:00 [只看该作者]

谢谢老师，谢谢老师的精彩讲解！

主题：如何从后向前找出重复记录