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

代码，如下

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

 如下

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

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