以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  如何从后向前找出重复记录  (http://www.foxtable.com/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 --   谢谢老师，谢谢老师的精彩讲解！