主题：[求助]删除时差小于等于60秒的同类行（已解决）

if dr isnot nothing then    

     dr.Delete

end if

Tables("表A").Sort = "类别,编号,日期时间"

Dim bhs As List(Of String) = DataTables("表A").GetValues("编号")

Dim lbs As List(Of String) = DataTables("表A").GetValues("类别")

For Each bh As String In bhs

    For Each lb As String In lbs

        Dim drs As List(Of DataRow) = DataTables("表A").Select("[编号] = '" & bh &"' And [类别] = '" & lb &"'","日期时间")

        For n As Integer = 0 To drs.Count - 1 '遍历所有行

            If n > 0 AndAlso drs(n)("日期时间") > drs(n-1)("日期时间") Then

                drs(n)("时差") = (drs(n-1)("日期时间") - drs(n-1)("日期时间")).TotalSeconds

            End If

        Next

    Next

Next