以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何从后向前找出重复记录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161882)

--  作者:zhangchi96
--  发布时间: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
        Next
请教老师,我想定位到最后一个考评人编号重复的记录,但不知道错在哪里?
[此贴子已经被作者于2021/4/2 10:33:29编辑过]

--  作者:有点蓝
--  发布时间: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
next

--  作者:zhangchi96
--  发布时间:2021/4/7 10:50:00
--  
谢谢老师,谢谢老师的精彩讲解!