主题：工作时间统计问题

找出计算慢的问题了，是统计引用的时候，两个表有循环的数据，造成了卡死，通过按钮把计算和统计分开，可以解决。

另外之前的统计代码，会有这样的情况，如果我是先刷的出2，这样计算的方式就反过来了，变成进1减去出2了，出入扣减的顺序就不对了。

就是看不太明白这里才上来问的，就差这一个条件了，因为之前已经用过一次这一列的idx，在加进去是怎样实现，还麻烦请大神指点下。

Tables("表A").Sort = "第一列,时间"
Tables("表A").Filter = "第一列 is not null"

Dim d As Date
Dim r As Row
Dim r2 As Row = Tables("表A").Rows(0)
Dim idx As Integer = 0
Dim t As new timespan(0,0,0,0)

For i As Integer = 0 To Tables("表A").Rows.Count - 1
    r = Tables("表A").Rows(i)
    If r2("第一列") = r("第一列") Then
        If r2("出入") = r("出入") Then
            r2 = r
            idx = 0
            Continue For
        ElseIf r.IsNull("时间") = False AndAlso r2.IsNull("时间") = False
            If idx = 0 Then
                Dim sp As TimeSpan = cdate(r("时间")) - cdate(r2("时间"))
                If sp.TotalHours <= 12 Then
                    r("第四列") = sp.TotalSeconds
                Else
                    r("第四列") = Nothing
                   
                End If
                idx = 1
            Else
                r("第四列") = Nothing
            End If
        End If
    Else
        r2 = r
        idx = 0
    End If
Next