主题：求助：自动分解考勤工时到指定位置列

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

 

共两个表，第一个表是设定一天的打卡时间段，共分六段，第二个表是刷卡记录表，但从考勤机上取的考勤信息，只有到考勤时间列。

要求：按计算，自动将考勤时间列的内容分段，并按打卡时间段的要求，分解到指定列位置。
注意：如有重复打卡的时候，取第一个时间值，比如上图中的第一个打卡数据。如果打卡段没有时间记录，则为空。

以下为实例项目

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.foxdb

代码，如下

 

Select Case e.DataCol.Name
    Case "考勤时间"
        If e.DataRow.IsNull("考勤时间") = False Then
        Dim ary() As String = e.DataRow("考勤时间").split(" ")
        For Each str As String In ary
            Dim d As Date = new Date(1900,1,1,str.Split(":")(0),str.Split(":")(1), 0)
            Dim idx As Integer = Tables("班段设置").FindRow("起始时间 <= #" & d & "# and 结束时间 >= #" & d & "#", 0, False)
            If idx > -1 Then
                e.DataRow("第" & idx+1 & "段") = d
            End If
        Next
        End If
End Select

老师的代码实现了大部分功能,还有几个细节要改善一下,这也是我没说清楚.

1.在同一个时间段,出现两次打卡,默认取第一个打卡时间.老师做的是取第二个时间.
2.上述例子中是规定打卡一天六次.每次有开始打卡时间到结束时间.一般来说,在规定的范围期间打卡算是正常的.如果打卡时间落在这个打卡时间段的开始前面,或在结束后面,该打卡时间也应该反映在该打卡时间段的列里面.老师给出的代码是为空不填写.希望能改成,这类时间也应该填进来,同时用红颜色标识.

第2项很重要,因为这打卡异常的数据,如果是空的话,则不好统计迟到或早退工时,会误以为没有打卡.

 如下

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar

你好  老师  看了这个范例  我有些问题  就是我的数据跟他的数据有个区别  就是中间有两个空格  会报错

Dim ary() As String = e.DataRow("考勤时间").replace("  "," ").split(" ")

蓝老师  测试了下  还是再报那个错误

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

在datacolchanged 事件里怎么调试呀   写了msgbox 没作用诶  求指教

不管什么事件，调试方法一样，如果没作用，说明事件没有触发。重置列看看