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编辑过]
加好友 
发短信
Post By：2021/4/2 10:33:00 [只看该作者]
