主题：考勤报表

参考代码

 

Dim sum As Double = 0
For Each dr As DataRow In e.DataRow.DataTable.Select("姓名 = '" & e.DataRow("姓名") & "'")
    Dim d As Date = dr("加班时间")
    sum += d.Hour * 3600 + d.Minute * 60 + d.Second
Next
e.Book.Marks("加班总计") = sum / 3600

原来是要这样才行,对了我想问一下,

<GroupHeader,考勤明细,姓名,1>

<GroupHeader,考勤明细,姓名,1>

<考勤明细,姓名>

<GroupFooter,考勤明细,姓名,1>

<GroupFooter,考勤明细,姓名,1>

<end>

模板是这样设计的,在保持现状的情况下,怎样让日期按升序排列 有的人统计出来的效果日期是排好的 有的是乱的

这样写

 

<考勤明细,姓名|日期>

感谢红版

Select Case e.Book.TempLate
    Case "考勤"
        Dim str1 As String = ""
        Dim Filter As String = "姓名 = '" & e.DataRow("姓名") & "'"
        For Each dr As String In e.DataRow.DataTable.GetValues("早退时间", filter)
            str1 &= dr & ","
        Next
        e.Book.Marks("请假明细") = str1.trim(",")
        Dim sum As Double = 0
        For Each dr As DataRow In e.DataRow.DataTable.Select("姓名 = '" & e.DataRow("姓名") & "'")
            Dim d As Date = dr("加班时间")
            sum += d.Hour * 3600 + d.Minute * 60 + d.Second
        Next
        e.Book.Marks("加班总计") = sum/3600
        Dim sum1 As Double = 0
        For Each dr As DataRow In e.DataRow.DataTable.Select("姓名 = '" & e.DataRow("姓名") & "'")
            Dim d As Date = dr("迟到时间")
            sum1 += d.Hour * 3600 + d.Minute * 60 + d.Second
        Next
        e.Book.Marks("迟到总计") = sum1 /60
        Dim sum2 As Double = 0
        If e.Book.Marks("迟到总计")< 5 AndAlso e.Book.Marks("迟到总计")>0 Then
            sum2 = e.Book.Marks("加班总计")*18-10
        Else
            sum2 = e.Book.marks("加班总计")*18-(e.Book.Marks("迟到总计")-5)*10-10
        End If
        e.Book.Marks("加班费") = sum2
End Select

这个加班费:加班总计和迟到总计都为零,加班费理应也为0 为什么统计出来等于40 

e.Book.Marks("加班总计") = sum/3600 用round()还是其他的保留两位小数

 

If e.Book.Marks("迟到总计")< 5 AndAlso e.Book.Marks("迟到总计")>0 Then
    sum2 = e.Book.Marks("加班总计")*18-10
ElseIf e.Book.Marks("迟到总计")>0 Then
    sum2 = e.Book.marks("加班总计")*18-(e.Book.Marks("迟到总计")-5)*10-10
End If

这个我想到了,后来改成

If e.Book.Marks("迟到总计") < = 5 AndAlso e.Book.Marks("迟到总计") <> 0 Then
            sum2 = e.Book.Marks("加班总计")*18-10
        ElseIf e.Book.Marks("迟到总计") > 5
            sum2 = e.Book.marks("加班总计")*18-(e.Book.Marks("迟到总计")-5)*10-10
        End If
        e.Book.Marks("加班费") = sum2 & "元"
劳烦我试过：<Round(<加班总计>,2)> 不行 那么在 e.Book.Marks("加班总计") = sum/3600 怎样直接限定保留两位小数就好

 

e.Book.Marks("加班总计") = Format(sum/3600, "0.00")

谢谢版主