主题：工作时间统计问题

Access数据库还是sqlserver数据库？查询表的sql语句怎么写的？贴出来看看看。

 如果第四列是字符列，不能统计。第四列，必须是数值列或者是时段列，才可以的。

sql语句里面把字符转数值这样写

 

Select convert(numeric(18,0), 你数据库的列名), 其它列 from {某表}

 时间列，是不能直接汇总的，只有个数值列可以。

 

 你数据具体是怎样的？做个例子上来。而且，前面已经告诉你如何处理时间列了啊。

 你查询表的sql语句怎么写的？

 

如果原本写 Select * from {表A}

 

现在就改成 Select convert(numeric(18,0) as 列名, * from {表A}

Select convert(numeric(18,0), 列1) as 新的列名, * from {表A}

 那逻辑是什么？刷两次卡，怎么处理？

 

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
                r("第四列") = (cdate(r("时间")) - cdate(r2("时间"))).TotalSeconds
                idx = 1
            Else
                r("第四列") = Nothing
            End If
        End If
    Else
        r2 = r
        idx = 0
    End If
Next

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

 如果在你项目里面测试不行。应该是有其它代码影响了。你试试把你表事件的代码，都移除后测试。