主题：签到次数统计请教

此主题相关图片如下：a.jpg


此主题相关图片如下：b.jpg

传图和文件参考这里 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

那样只能统计一天的

For Each dr As DataRow In DataTables("表B").Select("工号 is not null")
    Dim drs As List(Of DataRow) = DataTables("表A").Select("工号 = '" & dr("工号") & "'", "签到时间")
    Dim count As Integer = 0
    Dim pd As Date = Nothing
    For Each cdr As DataRow In drs
        If cdr("签到时间").Hour < 8 AndAlso (Cdate(cdr("签到时间")) - pd).totalHours > 1 Then
            pd = cdr("签到时间")
            count += 1
        End If
    Next
    dr("上午签到次数") = count
Next

非常感谢有点甜老师的指点。请教一下参数.totalHours是不是应该改为.TotalDays

  不用改。