主题：时间的计算

    密码：732100

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

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

编写代码处理，参考

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

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

1、判断重复，如果重复，就不拷贝过去，即可。或者加一个列，如果拷贝过去的行，就勾选一下记录。

2、判断打开记录，如果第二个时间早于第一个时间，那就算为跨了一天。

比如

Select Case e.DataCol.name
    Case "时间1","时间2","时间3","时间4","时间5","时间6"
        Dim d1 As Date = e.DataRow("时间1")
        Dim d2 As Date = e.DataRow("时间2")
        Dim d3 As Date = e.DataRow("时间3")
        Dim d4 As Date = e.DataRow("时间4")
        If d2 = Nothing Then
            Dim fdr = e.DataTable.Find("_Identify > " & e.DataRow("_Identify"))
            If fdr IsNot Nothing Then
                d2 = fdr("时间1")
            Else
                d2 = d1
            End If
        Else
            Dim d As Date = #07:00#
            Dim d0 As Date = #08:00#
            Dim d5 As Date = #20:00#
            Dim d6 As Date = #20:30#
            If d < d1 And d1 < d0 Then
                d1 = d0
            End If
            If d5 < d2 And d2 < d6 Then
                d2 = d5
            End If
            If d5 < d3 And d3 < d6 Then
                d3 = d5
            End If
        End If
        Dim sp As TimeSpan = d2-d1
        Dim n1 = sp.TotalHours
        Dim n = Math.Floor(n1)
        If n1 > n+0.5 Then
            n1 = n+0.5
        End If
        e.DataRow("工作时间") = n1
End Select