主题：考勤报表

参考代码

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