主题：[求助]同类行相邻行对比标记（已解决）

按日期时间顺序的相邻行? 没看明白

谢谢Bin老师的回复，就是按日期时间列的顺序，达到效果列的要求。请老师指教，谢谢！！

例如有3个B25  按照时间排序把 后面两个标记为1?

而且相同的设备编号，后面两行标记为1.

u pdate {表B} set 标记=1 where [_Identify] not in (select [_Identify] f rom {表B} a inner join  (Select 员工编号,设备编号,min(日期时间) As 日期时间 F rom {表B} Group By 员工编号,设备编号) b on a.日期时间= b.日期时间 and a.员工编号=b.员工编号 and a.设备编号=b.设备编号)

'Tables("表B").Sort =  "员工编号,日期时间,设备编号"
Dim drs As List(Of DataRow) = DataTables("表B").Select("","员工编号,日期时间,设备编号")
Dim dr As DataRow
Dim dr1 As DataRow = drs(drs.Count - 1)
For i  As Integer = drs.Count - 2 To 0 Step -1
    dr = drs(i)
   
    If dr("员工编号") = dr1("员工编号") AndAlso dr("设备编号") = dr1("设备编号") Then
        dr1("标记") = 1
    Else
        dr1("标记") = 0
    End If
    dr1 = dr
Next

谢谢逛逛老师的指教，达到预期效果，存在一点瑕疵，好像第一行不能填充标记，能否解决。再次感谢逛逛老师！！